Return to dosunix.pl CVS log | Up to [LON-CAPA] / loncom / localize / localize |
1.1 ! www 1: $fn=shift; ! 2: system ("cp $fn $fn.original"); ! 3: open(IN,"$fn.original"); ! 4: open(OUT,">$fn"); ! 5: while ($line=<IN>) { ! 6: $line=~s/[\n\r]+$/\n/; ! 7: print OUT $line; ! 8: } ! 9: close(IN); ! 10: close(OUT);