Re: Need help w/ reqexp, capture and substitue



Shawn Milochik wrote:
This seems to work for me:

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


while (<STDIN>) {
chomp;
print "Original: $_\n";
$_ =~ s/^([^@]+)(@.+&\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
.

Relevant Pages