PERL substitution like SED does

[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

 

[tsdragon]

You would be much better off asking this question in the PERL forum. Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.