Help for this page

Select Code to Download


  1. or download this
    open FILE, '+< products.txt' or die $!;

...
print FILE @lines;
truncate FILE, tell(FILE);
close FILE;
  2. or download this
    perl -pi.bak -e "s/(\d+)\t(\d+)/$2\t$1/" products.txt