Dan Muey wrote: > > I have this subroutine and it does what I need :: > > print rmgtlt($var); > > sub rmgtlt { > > $_[0] =~ s/^\<|\>$|\n|\r|\s$//g; > return $_[0]; > } > > Is there a way to so the substitution and return the result in one line? > > Like :: > > sub rmgtlt { > return ??? $_[0] =~ s/^\<|\>$|\n|\r|\s$//g; > } > > I tried using parenthesis and using list context :: > return my($q) = $_[0] =~ s/(^\<|\>$|\n|\r|\s$)//g; } > > And you might have figured it returned the number of elements matched and not > the newly fixed up variable contentes. > > Is there a way to do this?
sub rmgtlt { join '', split /^<|>$|\n|\r|\s$/, $_[0] } John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]