Re: Need help w/ reqexp, capture and substitue

[Dennis G. Wicks]

Shawn Milochik wrote:

This seems to work for me:

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


while (<STDIN>) {
        chomp;
        print "Original: $_\n";
        $_ =~ s/^([EMAIL PROTECTED])(@.+&\d+&)([&]{5})/$1$2$1$3/;
        print "Modified: $_\n";
}

Hope it helps.

Shawn

Thanks Shawn!

That works perfectly!

I just might get finished by Monday AM.

Now I just need to figure out how it works
so I don't beat my head against the desk so much
the next time I need to do something like this.

Regards,
Dennis

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>