Michael,
Thanks for your help! I'll bet that you have identified the problem, and
I'll do some testing to confirm it. Unfortunately, the "ignore such
files..." option won't help very much, since the point of my code is to
identify those very files, so I guess I'll have to take the recompile
route.
Thanks!
-Nick
Michael
Fowler To: [EMAIL PROTECTED]
<michael@shoe cc: [EMAIL PROTECTED]
box.net> Subject: Re: Help with File::Find
01/11/02
01:17 PM
On Fri, Jan 11, 2002 at 10:57:48AM -0600, [EMAIL PROTECTED]
wrote:
> all files (including the previously missed ones) are printed out (also
> along with the directories now) as expected, but for the files that would
> not have passed the (-e $_) test, the values assigned for filesize and
age
> in line 12 are (tested to be) undefined. If this is any help, the files
> that don't pass the (-e $_) of test of line 11 are (perhaps
coincidentally)
> the biggest files (~55 GB) in the directory.
I don't believe this is a coincidence. Try stat'ing those largefiles
independently:
perl -wle 'print join("\n", stat($_)) foreach @ARGV' file1 file2 etc.
If you see undefined value warnings, as I suspect, then your Perl isn't
compiled to support large file sizes, and it's causing any stats on such
files to return undefined values.
In this case you have two solutions; ignore these files by not checking for
further information if stat returns an empty list, or recompile your Perl
with large file support (assuming your C libraries have such support).
Michael
--
Administrator www.shoebox.net
Programmer, System Administrator www.gallanttech.com
--
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
