Re: return a regex substitution in one line

[david]

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];
> }
> 

try:

#!/usr/bin/perl -w
use strict;

sub rmgtlt{
        $_[0] =~ s/^\<|\>$|\n|\r|\s$//g,$_[0];
}

my $s = "<abcd>";
print scalar rmgtlt($s),"\n";

__END__

prints:

abcd

make sure you use it in scalar context.

david

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]