Can someone hlpe me clean up this trim? Rule: remove all trailing blanks and newline/LF
Do I need a chomp here somewhere?
sub trim
{ my $z = $_[0];
$z =~ s/^\s+//;
$z =~ s/\s+$//;
return $z;
}
thanks,
-rkl
-----------------------------------------
eMail solutions by
http://www.swanmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
