in reply to Re: Find all JPEG files in a directory
in thread Find all JPEG files in a directory

#perl
use File::Slurp;
write_file ('filenameW', $ENV{OS} =~ /Windows/i ? `dir /b *.jpg` : `ls
+ *.jpg` );

[download]
Update: changed single qutoes to backticks as originally intended.


holli, /regexed monk/

In Section Seekers of Perl Wisdom