Greetings, Thank you very much for your suggestions and alternatives Dr. Ruud.
It is greatly appreciated. best, Shaji ------------------------------------------------------------------------------- Your talent is God's gift to you. What you do with it is your gift back to God. ------------------------------------------------------------------------------- ________________________________ From: Dr.Ruud <rvtol+use...@isolution.nl> To: beginners@perl.org Sent: Sunday, 24 February 2013 4:51 PM Subject: Re: Line Endings On 2013-02-23 01:51, *Shaji Kalidasan* wrote: > my $cr = $content =~ tr/\r/\r/; > my $lf = $content =~ tr/\n/\n/; > my $crlf = $content =~ s/\r\n/\r\n/g; See also 'perldoc -q count'. Alternatives: my $cr = $content =~ tr/\r//; my $lf = $content =~ tr/\n//; my $crlf =()= $content =~ /\r\n/g; -- Ruud -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
