Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -p
s/,/\t/g;
END{warn "Changed , to tab on $. lines\n"}
  2. or download this
    #!/usr/bin/perl -naF,
print join "\t",@F;
END{warn "Changed , to tab on $. lines\n"}