Help for this page

Select Code to Download


  1. or download this
    perl -00ne 'BEGIN { $filename = "MyFileName0000" } { open my $IFILE, "
+>", $filename++; print $IFILE  $_ }' table1.txt table2.txt tableN.txt
  2. or download this
    perl -MO=Deparse -00ne 'BEGIN { $filename = "MyFileName0000" } { open 
+my $IFILE, ">", $filename++; print $IFILE  $_ }'