in reply to Re: Re: Removing the ^M character, but also removing the newline
in thread Removing the ^M character, but also removing the newline

Tell chomp what your newline is like this: 

local $/ = "\r\n";
chomp;

[download]

Chomp chomps whatever you tell it a newline is. local localizes that setting so it's automagically replaced with the standard newline for your system when the block the local setting is within is done.

Name another language that makes stripping newlines this easy. 8-)

  • Comment on Re: Re: Re: Removing the ^M character, but also removing the newline
  • Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Removing the ^M character, but also removing the newline
by steves (Curate) on Dec 30, 2001 at 03:05 UTC

    Almost forgot. I wrote this simple dos_chomp function for cases where there may or may not be a CR (^M) before the LF. Enjoy! 

    sub dos_chomp
{
    if (!defined(@_[0]))
    {
        chomp;
        s/\r$//;
    }
    else
    {
        for (@_)
        {
            chomp;
            s/\r$//;
        }
    }

    return wantarray ? @_ : @_[0];
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom