getting directory path to file using File::Find

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to locate files above a certain size for all directories under '/wwwdev' on my website.

The script below is finding them OK but it's not printing the path of the file for me:

use File::Find;
find (\&wanted, 'e:/inetpub/wwwdev');
sub wanted 
{
my $size = -s;
if ($size > 102400)
    {
    $Find::File::name = $name;
    print "$name, $size\n";
    }
}
[download]

What have I done wrong?

Comment on getting directory path to file using File::Find Download Code

Replies are listed 'Best First'.
Re: getting directory path to file using File::Find by Aragorn (Curate) on Nov 07, 2002 at 10:57 UTC
Hehehe :-) It's just a little typo. Use `$name = $File::Find::name` [download] instead of `$name = $Find::File::name` [download] The '-w' option to Perl catches this. Arjen -- All that is gold does not glitter...	[reply] [d/l] [select]
Re: getting directory path to file using File::Find by cLive ;-) (Prior) on Nov 07, 2002 at 10:29 UTC
`$name = $Find::File::name; print "$name, $size\n";` [download] d'oh cLive ;-) Update: LoL d'oh - I fix the typo without fixing the typo - see below :)	[reply] [d/l]
Re: Re: getting directory path to file using File::Find by Anonymous Monk on Nov 07, 2002 at 10:35 UTC
Thank-you! Still the same problem though - this is what is printed out: `, 102700 , 104520` [download] etc The $name variable appears to be blank - what gives?	[reply] [d/l]