perl's chomp under Win-Linux

thelonius · 04-12-2006, 11:01 AM

Hello,

I have adata file produced under Windows and I treat it with Perl under Linux. The problem I have is that 'chomp' doesn't work in this configuration.

Any idea what to do ?

Thanks.

scuzzman · 04-12-2006, 12:25 PM

You need to remove the Windows carriage return from the lines as well. You see, when a text file is created under Windows, it ends the lines with a carriage return and a line feed, whereas *nix systems use just a line feed. You can use Perl, tr, sed, or a host of other programs to remove this extra character. Here is a simple Perl script to remove these extra characters and format the text file properly.

thelonius · 04-12-2006, 12:29 PM

Quote:

Originally Posted by scuzzman

You can use Perl, tr, sed, or a host of other programs to remove this extra character.

...other program like 'dos2unix', but I don't want it. I'd like that Perl takes care about it. But it seams that this is not the case.

Thanks.

scuzzman · 04-12-2006, 02:13 PM

Then you didn't read my entire post. Try that one again. (Hint: check out the script I linked to)
The specific section I'm referring to is here (better read in-context):

Code:

   while (<OLD>) {
      if ($opt_replace) {
         s/\r/\n/g;          # replace all (/g) \r's by \n's
      } else {
         s/\r//g;          # replace all (/g) \r's by nothing
      }
      print NEW       or die "can't write $new: $!";
   }

This is just a hint of the power of Perl's regular expression implementation. Take a look here.