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?
> 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]
