src/win32/unix2dos.pl

   1 #!/usr/bin/perl
   2
   3 my $file;
   4
   5 if(@ARGV < 1)
   6 {
   7     die "$0: <file>\n";
   8 }
   9
  10 $file = shift (@ARGV);
  11
  12 # File
  13 open(FILE,"<$file")|| die "Unable to open file: $file\n";
  14
  15 while(<FILE>)
  16 {
  17     my $line = $_;
  18
  19     $line =~ s/\n/\r\n/;
  20     print $line;
  21 }