[EMAIL PROTECTED] wrote: > Can someone hlpe me clean up this trim? > > Rule: remove all trailing blanks and newline/LF
perldoc -q 'How do I strip blank space from the beginning/end of a string' > > > Do I need a chomp here somewhere? No, the \s+ will take care of that > > > sub trim > { my $z = $_[0]; > > $z =~ s/^\s+//; You don't need the above statement if you only need to remove trailing blanks and newlines > > $z =~ s/\s+$//; > > return $z; > } You could maybe write the sub as sub trim { s/\s+$// foreach (@_); } This will also trim an entire list if needed > > > thanks, > -rkl -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]