TStanley has asked for the wisdom of the Perl Monks concerning the following question:
Any suggestions or ideas are welcome. Thanks.#!/opt/perl5/bin/perl -w use strict; use File::Slurp; my $DIR="/home/mis/ftpstore"; my @Files=read_dir($DIR); my $file; @Files=sort{$a cmp $b}@Files; system("ls -l $DIR/Unity*.prpt | lpr"); foreach $file(@Files){ if($file=~/Unity\d{3}\.prpt/){ ## This command is a specialized command for the ## HP Distributed Print Service. system("pdpr -x sides=2 $DIR/$file"); } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Not accepting the environment variable
by blakem (Monsignor) on Oct 25, 2001 at 05:33 UTC | |
Re: Not accepting the environment variable
by Zaxo (Archbishop) on Oct 25, 2001 at 06:34 UTC | |
Re: Not accepting the environment variable
by davis (Vicar) on Oct 25, 2001 at 12:12 UTC | |
Re: Not accepting the environment variable
by higle (Chaplain) on Oct 25, 2001 at 05:58 UTC | |
Re: Not accepting the environment variable
by TStanley (Canon) on Oct 25, 2001 at 21:10 UTC |