[32648] in Perl-Users-Digest
Perl-Users Digest, Issue: 3924 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 15 09:09:25 2013
Date: Mon, 15 Apr 2013 06:09:04 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 15 Apr 2013 Volume: 11 Number: 3924
Today's topics:
Find::File OS/2 <dave@invalid.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Apr 2013 11:43:55 +0000 (UTC)
From: "Dave Saville" <dave@invalid.invalid>
Subject: Find::File OS/2
Message-Id: <fV45K0OBJxbE-pn2-7nmDScVdg1Xj@paddington.bear.den>
I have a script that needs to obtain a list of files. The script takes
an argument as to where to start looking in the directory tree. So I
issue
find(\&wanted, $start);
If $start equals drive and directory such as t:/foo then all is fine.
But if I need to start in the root of a drive such as t: then find
throws an error:
Can't stat t:: No such file or directory
Note the double colon.
t: & t:/ both give the same error.
Just giving t gives a slightly different error with t: rather than t::
t:/. works as does t:. - but messes all subsequent returned fully
qualified paths as in t:/./foo.
Any ideas gratefully received. What I am doing for now is check if it
is only a drive and change start to 'x:.' then inside wanted() I strip
that off and replace with what was supplied. Messy, there must be a
better way.
--
Regards
Dave Saville
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 3924
***************************************
