Re: shell to perl question

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

--
b10m

All code is usually tested, but rarely trusted.

Comment on Re: shell to perl question

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]
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]