Help for this page

Select Code to Download


  1. or download this
    $tags{sprintf("%04d%6s",$1 || 999,$2)} = $tag;
  2. or download this
    >perl test.pl input.txt output.txt
  3. or download this
    require 5.000;

...

close NEWFILE;
close FILE;