On Wed, 2004-03-24 at 14:19, James Edward Gray II wrote:
> On Mar 24, 2004, at 7:59 AM, WC -Sx- Jones wrote:
>
> > while(<UPD1>) {
> > chomp; s/^\s+//; s/\s+$//; next unless length;
>
> There's probably not much reason to chomp() and s/\s+$//, since the
> later handles both.
>
> James
>
Thanks for all assistance
This worked
s/\s+$/;
One question will this only take out blank lines?
eg: if I have this line
anytext tabe space newline
will the non-printing characters be removed and the text be added to the
beginning of the next line?
thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
