http://qs321.pair.com?node_id=484692


in reply to shell to perl question

File::Find ?

You also might like the program find2perl that comes with that module.

--
b10m

All code is usually tested, but rarely trusted.

Replies are listed 'Best First'.
Re^2: shell to perl question
by inman (Curate) on Aug 18, 2005 at 07:51 UTC
    An example 
    use File::Find;

find (\&wanted, @ARGV);

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

    [download]
[reply]
[d/l]

      You probably want 

          print "Found $File::Find::name\n";

      [download]
      there, otherwise only the basename gets printed out.

      the lowliest monk

[reply]
[d/l]

In Section Seekers of Perl Wisdom