Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    print OUTFILE $_,$/;
}
#close files here
  2. or download this
    for my $slotarray (@slotarray) {
 print OUTFILE "$slotarray\n";
}
  3. or download this
    while (<DPSLOTFILE>){
  next unless /\QMSL6000 Trinity:\s*(\d+)/;
  print OUTFILE $1,$/;
}
  4. or download this
    perl -nle 'print $1,$/ if /\QQMSL6000 Trinity:\s*(\d+)/' input_file > output_file;