Oleg V. Volkov wrote:
"Ron Wingfield" <[EMAIL PROTECTED]> wrote:
[skip]
while (defined($line = <INFILEHANDLE>)) {
$line =~ s/\r//g;
printf OUTFILEHANDLE ("%s"), $line;
}
Why not this one?
$line =~ s/\r$//;
I didn't see anything about removing ^M anywhere in original
post, only at end of line.
Why not just:
while(<INFILEHANDLE>)
{
s/\r$//;
print OUTFILEHANDLE;
}
??
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>