tools/unix2dos

   1 #!/usr/local/bin/perl -w
   2 # -*- cperl -*-
   3
   4 binmode STDIN;
   5 binmode STDOUT;
   6
   7 foreach $i ( @ARGV ) {
   8   open (FILE, "<$i");
   9   binmode FILE;
  10   @lines = <FILE>;
  11   close (FILE);
  12
  13   open (FILE, ">$i");
  14   binmode FILE;
  15   foreach $j ( @lines ) {
  16     $j =~ s/\x0d\x0a/\x0a/g;
  17     $j =~ s/\x0a/\x0d\x0a/g;
  18     print FILE $j;
  19   }
  20   close (FILE);
  21 }