Help for this page

Select Code to Download


  1. or download this
    #!c:\perl\bin\perl.exe -w

...
1125394800 63597 0 63597 0
1125394500 63597 0 63597 0
1125394200 63597 0 63597 0
  2. or download this
    perl.exe -ple "s/ \d{4,}( |$)/ 0$1/g" filename
  3. or download this
    $line =~ s/ (\d+)/$1>1000?" 0":" $1"/ge;