Help for this page

Select Code to Download


  1. or download this
    #!usr/bin/perl -w
use strict;
my @cmd=qw(lpr -S SYSTEMX -P QGPL/SPYVIEW -o l C:\\ABCDEFGH.txt);
system(@cmd)==0 or die "cannot do this";
  2. or download this
    #!usr/bin/perl -w
use strict;
my @files=<c:\\ascii\\*>;
...
my @cmd=qw(lpr -S SYSTEMX -P QGPL/SPYVIEW -o l $file);
system(@cmd)==0 or die "cannot do this";
}