On Wed, 27 Aug 2003 12:38:55 +0200, Peter J. Holzer wrote:
Hi Peter
>�On 2003-08-27 12:06:19 +0200, Waldemar ?urowski wrote:
>
>>�W li?cie z wto, 26-08-2003, godz. 18:33, Jeff Zucker pisze: chomp
>>�$line; { local $/ = "\r"; chomp $line }
>>
>>�Would help to remove both \015 and \012, or only \012, or only
>>�\015 from the end of a line?
>>
>
>�Yup. However, while your method may actually be faster (haven't
>�benchmarked it), I find
>
>�$line =~ s/\r?\n?$//s;
>
>
>�somewhat more readable.
True, but it doesn't work, so readability has too high a priority:
-----><8-----
#!/usr/bin/perl
use strict;
use warnings;
# -----------
my($s) = "Data\n\r";
print "Length: ", length($s), ". \n";
$s =~ s/\r?\n?$//s;
print "Length: ", length($s), ". \n";
-----><8-----
Output:
-----><8-----
Length: 6.
Length: 5.
-----><8-----
Ideally, the final length would be 4, would it not?
--
Cheers
Ron Savage, [EMAIL PROTECTED] on 27/08/2003
http://savage.net.au/index.html
