Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -F: -lane "print $F[2]" checkstatres.txt
  2. or download this
    BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
...
    our(@F) = split(/:/, $_, 0);
    print $F[2];
}
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    our(@F) = split(/:/, $_, 0);
    print $F[2];
}