in reply to executing script one at the time
Try the following code to see if you get any errors:
use strict; use warnings; while (my $line = <FILES_TO_RUN>) { chomp $line; die ("File does not exist") unless (-e $line); die ("File cannot be executed") unless (-x $line); system(qq($line)); }
And remember to always have use strict; use warnings; at the top of your scripts.
Want to support the EFF and FSF by buying cool stuff? Click here.
|
---|
In Section
Seekers of Perl Wisdom