Re: Shell Commands executed in perl script


Just another Perl shrine
	PerlMonks

Re: Shell Commands executed in perl script

by andreas1234567 (Vicar)

on May 22, 2007 at 13:33 UTC ( [id://616762]=note: print w/replies, xml )

Need Help??

in reply to Shell Commands executed in perl script

You probably don't need the shell at all:

$ mkdir logs
$ touch logs/file1
$ touch logs/file2
$ touch logs/file3
$ touch logs/file4
$ perl -wl
use File::Find;
# Print filenames in directory 'logs', but skip directories
# and files containing 'file1'
find( sub { return if (-d or /file1/); print; }, q{logs});
__END__
file4
file3
file2
[download]

Andreas
--