Adding/Replacing Data 1

[biobrain]

I have a file


COMPND MOL_ID: 1;
COMPND 2 MOLECULE: CELL DIVISION PROTEIN KINASE 2;

Now I want to write a script which matches COMPND 2 and than add another variable before MOLECULE

i.e COMPND 2 $variable MOLECULE: CELL DIVISION PROTEIN KINASE 2;

I have written this

if ($_=~/^COMPND\s+\/2/) {
#print $_;
my $test2=$_;

But How to proceed next?

 

[prex1]

Why a slash before the '2' in the regex?

if(/^COMPND\s+2/){
  s/2/2 $variable/;
}

Franco

http://www.xcalcs.com

: Online tools for structural design

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[biobrain]

Thanks, It worked for me.