> > 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;
> > }
> >
> > Is there a way to do this?
> > I know I must be missing something obvious , thanks for any
> guidance!
>
> Without more comments or sample data, I'm not really sure
> what your function is doing, but here are some things to try:
>
> sub rmgtlt {
> $_[0] =~ s/^\<|\>$|\n|\r|\s$//g;
> }
>
> sub rmgtlt {
> return $_[0] =~ s/^\<|\>$|\n|\r|\s$//g;
> }
>
> sub rmgtlt {
> return ($tmp = $_[0]) =~ s/^\<|\>$|\n|\r|\s$//g;
> }
All three of those returns the number of matches like what I tried!
I also tried
return ($_[0] =~ s/^\<|\>$|\n|\r|\s$//g);
Same thing.
Thanks for all the replies! Any other ideas?
Dan
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
