> On Tue, 14 Oct 2003 19:26:50 -0700, perl wrote:
>> Can someone hlpe me clean up this trim?
>
> What do you actually mean by "clean up"? Make the code shorter and,
> maybe, more obfuscated? Why?
----------
- more shorter - Yes
- more obfuscated - hhmm... nice to know shortcut
----------
>
>> Rule: remove all trailing blanks and newline/LF
>
> sub trim {
> my $string = shift;
>
> chomp( $string );
> $string =~ s,^\s+,,;
> $string =~ s,\s+$,,;
>
> return $string;
> }
>
> This is clean _to me_, but I have no idea if you really need that chomp()
> thing. Never tested the code above.
>
>
> --
> Tore Aursand <[EMAIL PROTECTED]>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
-----------------------------------------
eMail solutions by
http://www.swanmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
