Re: How to remove a carriage return (\r\n)

[pg]

To be a little bit cross-platform, just do:

use strict;
use warnings;

{
    my $str = "abcd\r\n";
    $str =~ s/\r|\n//g;
    print "[$str]";
}

{
    my $str = "abcd\n";
    $str =~ s/\r|\n//g;
    print "[$str]";
}

{
    my $str = "abcd\r";
    $str =~ s/\r|\n//g;
    print "[$str]";
}

[jgallagher]

But what happens when $str = "ab\ncd\r\n"? Or can we assume there are no line breaks except at the end of lines?

[3dbc]

$line =~ s/\R//g;