«

Hi,

whilst I'm still trying to get my head round the debugger, any pointers
as to why the script fragment below causes one or more of the following
warnings would be most appreciated!

Use of uninitialized value in numeric eq (==) at
/Users/bentis/bin/find_dupes.pl line 12.


#!/usr/bin/perl -w
use strict;
use File::Find;
use File::Compare;
my ($infile,$i,@allfiles,$basefile,$cmpfile,$matched) ;
find(\&wanted, @ARGV);
sub wanted {
$infile = $File::Find::name;
{
last if (/^\~.*\.tmp/i);
last if (/^\..*/);
last if ((stat($infile))[7] == 0);
last if (-d $infile);
push (@allfiles,$infile);
}
}
....

Best,

--
Ben Tisdall

Ben Tisdall wrote:
> whilst I'm still trying to get my head round the debugger, any pointers
> as to why the script fragment below causes one or more of the following
> warnings would be most appreciated!
>
> Use of uninitialized value in numeric eq (==) at
> /Users/bentis/bin/find_dupes.pl line 12.
>
>
> #!/usr/bin/perl -w
> use strict;
> use File::Find;
> use File::Compare;
> my ($infile,$i,@allfiles,$basefile,$cmpfile,$matched) ;
> find(\&wanted, @ARGV);
> sub wanted {
> $infile = $File::Find::name;
> {
> last if (/^\~.*\.tmp/i);
> last if (/^\..*/);
> last if ((stat($infile))[7] == 0);
> last if (-d $infile);
> push (@allfiles,$infile);
> }
> }

Does that warning appear for *every* file that find() finds, or only
certain ones? It is basically saying that the stat of $infile returned
undef for the size. I'm not sure why that would ever happen, except
for a file that does not exist. But that shouldn't happen, because
$infile is set to whatever file/directory File::Find is currently
looking at. Is this happening on a dynamically changing structure,
where a file could be there one instant and gone the next? Otherwise,
add some debugging info to the wanted() subroutine, to print out the
current file. Then see if there's something "special" about that file
on your file system if it produces the warning...

Sorry I can't be of more help,
Paul Lalli

Try performing the test

last if (-d $infile);

before

last if ((stat($infile))[7] == 0);

Rod.

Rod MacBan wrote:
> Try performing the test
>
> last if (-d $infile);
>
> before
>
> last if ((stat($infile))[7] == 0);
>
> Rod.
>
Thanks Paul & Rod, it turns out that symlinks were causing stat() to
return undef, so the fix was to make the first test:

last unless (-f $infile);

Best,

--
Ben Tisdall

"Ben Tisdall" typed:
> Thanks Paul & Rod, it turns out that symlinks were causing stat() to
> return undef, so the fix was to make the first test:
>
> last unless (-f $infile);

Or, use `perldoc -f lstat` instead.

--
Ayaz Ahmed Khan

It is impossible to defend perfectly against the attack of those who
want to die.

Ben Tisdall <> wrote in comp.lang.perl.misc:
> Rod MacBan wrote:
> > Try performing the test
> >
> > last if (-d $infile);
> >
> > before
> >
> > last if ((stat($infile))[7] == 0);
> >
> > Rod.
> >
> Thanks Paul & Rod, it turns out that symlinks were causing stat() to
> return undef, so the fix was to make the first test:
>
> last unless (-f $infile);

stat() works fine with valid symlinks. It's only symlinks whose
target doesn't exist that return undefined values, so your fix
throws away valid results.

Also, instead of the cumbersome

((stat($infile))[7]

use

-s $file

Anno