Re^2: shell to perl question

An example

use File::Find;

find (\&wanted, @ARGV);

sub wanted {
    return unless /\.jpe?g$/i;
    print "Found $_\n";
}
[download]

Comment on Re^2: shell to perl question Download Code

Replies are listed 'Best First'.
Re^3: shell to perl question by tlm (Prior) on Aug 18, 2005 at 11:38 UTC
You probably want `print "Found $File::Find::name\n";` [download] there, otherwise only the basename gets printed out. the lowliest monk	[reply] [d/l]