Another sub clean up

[perl]

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]