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/
