Help for this page

Select Code to Download


  1. or download this
    #!usr/bin/perl -w
use strict;
...
  print;
  print OUTFILE;
}
  2. or download this
    #!/usr/bin/perl -w
use strict;
$|=1;  #unbuffer stdout

print "File split start time is ", scalar localtime();
  3. or download this
    prints:
C:\TEMP>perl test.pl | perl tee.pl xxxxx
...
C:\TEMP>type xxxxx
File split start time is Fri Mar 30 05:57:41 2012
C:\TEMP>