AW: why does this code fail with stat?

[Thomas Bätzler]

Harry Putnam <rea...@newsguy.com> wrote:
> I'm not finding a reference in perldoc File::Find showing how to set
> that flag when using the popular notation like the script involved
> here.

Probably a case of not seeing the woods because of the trees ;-)

To quote:

NAME
       File::Find - Traverse a directory tree.

SYNOPSIS
           use File::Find;
           find(\&wanted, @directories_to_search);
           sub wanted { ... }

           use File::Find;
           finddepth(\&wanted, @directories_to_search);
           sub wanted { ... }

           use File::Find;
           find({ wanted => \&process, follow => 1 }, '.');
[...]

i.e.

find( { 
          wanted => sub {
          print "$_\n";
          print "$File::Find::name\n";
          if ($lastfld eq $_) {
            print "<$lastfld> matches <$_>; Lets check the size:\n";
            my $size = (stat($File::Find::name))[7];
            print "$File::Find::name size: $size\n";
          }
        }, 
        no_chdir => 1,
      },
      $dir2
);

HTH,
Thomas

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/