shell to perl question

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

Greetings all,
I have a quick question.

I am working on a few prototype functions and need some help. Using UNIX, I am usine the following script to sort image files:

find ./Images | egrep '\.jpe?g$'
[download]

1. Is there any way to use this script in perl? (I have alredy tried "system")
2. Is there a perl based alternative?

Any help will be greatly appreciated.

Formatting and code tags added by davido, per consideration.

Comment on shell to perl question Download Code

Replies are listed 'Best First'.
Re: shell to perl question by b10m (Vicar) on Aug 18, 2005 at 07:41 UTC
File::Find ? You also might like the program find2perl that comes with that module. -- b10m All code is usually tested, but rarely trusted.	[reply]
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]
Re: shell to perl question by salva (Canon) on Aug 18, 2005 at 08:15 UTC
you can use the backticks to capture the output from some command: @files = `find ./Images \| egrep '\.jpe?g$'`; chomp(@files); [download] or @files = grep /\.jpe?g$/i, `find ./Images`; chomp(@files); [download]	[reply] [d/l] [select]
Re^2: shell to perl question by reasonablekeith (Deacon) on Aug 18, 2005 at 08:40 UTC
In case you're wondering exactly how that works, perl is implicitly splitting the output on a newline character, because it's being assigned to an array. The following is an equivalent, explicit version of what's going on. my $files = `find ./Images \| egrep '\.jpe?g$'`; my @files = split(/\n/, $files); [download] UPDATE: My split was slightly off, as corrected below. Who does this guy think he is, correcting my code? ;-) --- my name's not Keith, and I'm not reasonable.	[reply] [d/l]
Re^3: shell to perl question by TimToady (Parson) on Aug 18, 2005 at 17:51 UTC
Close. Actually, it's equivalent to `my @files = split(/^/, $files);` [download] since it leaves the newlines on each indivdual list element.	[reply] [d/l]
Re: shell to perl question by merlyn (Sage) on Aug 18, 2005 at 13:59 UTC
Using one of my few CPAN contributions: `use File::Finder; my @files = File::Finder->type('f')->name(qr/\.jp?eg$/)->in('Images');` [download] No forking, no shell dependency. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: shell to perl question by zentara (Cardinal) on Aug 18, 2005 at 13:48 UTC
And don't forget about a file "glob" `#!/usr/bin/perl use warnings; use strict; my @files = <.jpg .jpeg somedir/*.jpg>; my @sorted = sort @files; print "@sorted\n";` [download] I'm not really a human, but I play one on earth. flash japh	[reply] [d/l]