Help for this page

Select Code to Download


  1. or download this
    cat /home/spjal/files/bprcf.parms  /home/spjal/files/temp | 
perl ' BEGIN { linectr=0 }
         { linectr++
  2. or download this
    #!/usr/local/bin/perl -w;
use strict;

...
my $lline;
while(<INFILE>) {
    chomp;    # Remove the newline.
  3. or download this
        if(++$linectr == 1) {
        my($scheck, $echeck, $fcheck, $lcheck) = split;    # Splits on
+ whitespace by default.
  4. or download this
          if ( $fcheck == $scheck )
        { $fline=2 }
...
    { print OUTFILE "$_\n";
    }
}