Substitution in PERL like SED does...Help!!!!!

[suhaimi]

Hi all,
How do I do this in perl command line???
I have SED script:
myvar="test"
cat a.txt|sed '/'$myvar'/ !s/.*MYSTR/#&/g'
What does it do is it will PUT '#' character in front of a whole line of strings that --> CONTAIN &quot;MYSTR&quot; <-- BUT
--> DO NOT CONTAIN &quot;test&quot; <--.

Please help, how do I do this in perl command line???

Thanks,
Suhaimi

 

[MikeLacey]

while(<>){
if(/MYSTR/){
unless(/test/){
print '#';
}
print;
}
}

That will do it, though not on the command line. Hop on over to the Perl forum forum219 if you really do need a command line solution. Mike
________________________________________________________________________________

&quot;Experience is the comb that Nature gives us, after we are bald.&quot;

Is that a haiku?
I never could get the hang
of writing those things.