test/CRLF_Bug/crlf_to_all.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 foreach my $ext (@ARGV) {
   6
   7         my $input;
   8         open ($input, "original.$ext");
   9         my @lines = ();
  10         while (<$input>) {
  11                 chomp;
  12                 s/\r//g;
  13                 s/\n//g;
  14                 push @lines, $_;
  15         }
  16         close $input;
  17
  18
  19         output("crlf.$ext", "\r\n", \@lines);   # Standard windows
  20         output("lf.$ext", "\n", \@lines);       # Standard unix
  21         output("cr.$ext", "\r", \@lines);       # Standard Mac
  22         output("lfcr.$ext", "\n\r", \@lines);   # Broken
  23         output("crcrlf.$ext", "\r\r\n", \@lines);# Very broken
  24 }
  25 exit 0;
  26
  27 sub output {
  28         my ($filename, $delim, $lines) = @_;
  29         my $fileref;
  30         open ($fileref, "> $filename");
  31         foreach my $line (@$lines) {
  32                 print $fileref $line . $delim;
  33         }
  34         close $fileref;
  35 }