John W. Krahn wrote:
> That can be reduced to:
> 
> $text =~ tr/ \t\n\r\f/ /s;
> 
> But that still doesn't remove leading and trailing whitespace so add two
> more lines:
> 
> $text =~ tr/ \t\n\r\f/ /s;
> $text =~ s/\A //;
> $text =~ s/ \z//;

That was left as an exercise to the reader.  Come now, you don't expect
the bestest of code early Sunday morning...before I finish my first cup
of coffee?  If so, I must say that your optimism is only overshadowed by
your hope.  :)


-- 
Just my 0.00000002 million dollars worth,
  Shawn

Programming is as much about organization and communication
as it is about coding.

I like Perl; it's the only language where you can bless your
thingy.

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to