Multiple Match of regular exp...

[stratus]

If I want to replace "-test" with "-test OK", and if it already contains "-test OK", it do not need to add it again.

Hence, String "-test" ========> will become ======> "-test OK"
String "-test 1234 -test 456" =====> "-test OK1234 -test OK456"
String "-test OK -test 45 -test OO" ====> "-test OK -testOK45 -test OKOO"


How to do this?

 

[John W. Krahn]

If I want to replace "-test" with "-test OK", and if it already contains "-test OK", it do not need to add it again.

Hence, String "-test" ========> will become ======> "-test OK"
String "-test 1234 -test 456" =====> "-test OK1234 -test OK456"
String "-test OK -test 45 -test OO" ====> "-test OK -testOK45 -test OKOO"


How to do this?

$ perl -le'
my @x = ( "-test", "-test 1234", "-test 456", "-test OK", "-test 45", "-test
OO" );
for ( @x ) {
print "Before: $_";
s/-test\s*(?! ?OK)/-test OK/;
print " After: $_";
}
'
Before: -test
After: -test OK
Before: -test 1234
After: -test OK1234
Before: -test 456
After: -test OK456
Before: -test OK
After: -test OK
Before: -test 45
After: -test OK45
Before: -test OO
After: -test OKOO



John

 

[stratus]

stratus <[email protected]> ´£¨ì:
: If I want to replace "-test" with "-test OK", and if it already contains "-test OK", it do not need to add it again.

: Hence, String "-test" ========> will become ======> "-test OK"
: String "-test 1234 -test 456" =====> "-test OK1234 -test OK456"
: String "-test OK -test 45 -test OO" ====> "-test OK -testOK45 -test OKOO"


: How to do this?


I mean it should in a string.like
$string="-test -test 1234 -test 456 -test OK -test 45 -test OO";

 

[Damian James]

$ perl -le'
my @x = ( "-test", "-test 1234", "-test 456", "-test OK", "-test 45", "-test
OO" );
for ( @x ) {
print "Before: $_";
s/-test\s*(?! ?OK)/-test OK/;
print " After: $_";
}
'

Dang, and here I was just about to follow up with just:

?!

 

[Damian James]

$ perl -le'
my @x = ( "-test", "-test 1234", "-test 456", "-test OK", "-test 45", "-test
OO" );
for ( @x ) {
print "Before: $_";
s/-test\s*(?! ?OK)/-test OK/;
print " After: $_";
}
'

Dang, and here I was about to follow up with just:

?!

 

[John W. Krahn]

stratus <[email protected]> ´£¨ì:
: If I want to replace "-test" with "-test OK", and if it already contains "-test OK", it do not need to add it again.

: Hence, String "-test" ========> will become ======> "-test OK"
: String "-test 1234 -test 456" =====> "-test OK1234 -test OK456"
: String "-test OK -test 45 -test OO" ====> "-test OK -testOK45 -test OKOO"


: How to do this?


I mean it should in a string.like
$string="-test -test 1234 -test 456 -test OK -test 45 -test OO";

$ perl -le'
my @x = ( "-test", "-test 1234 -test 456", "-test OK -test 45 -test OO" );
for ( @x ) {
print "Before: $_";
s/-test\s*(?! ?OK)/-test OK/g;
print " After: $_";
}
'
Before: -test
After: -test OK
Before: -test 1234 -test 456
After: -test OK1234 -test OK456
Before: -test OK -test 45 -test OO
After: -test OK -test OK45 -test OKOO



John