Re: Extract line, matching more than one variable

[prasadbabu]

in reply to Extract line, matching more than one variable

Hi yads25,

Welcome to the Monastery! Make yourself at home.

To accomplish your task, go through perlopentut and perlre. Try some code and if you have any questions, you can come again here.

[yads25]

Hi I tried the code....need debuging could you pl help..thank you. #!/usr/bin/perl -w $sasa_file= 'File1'; $pdbfile='File2'; # Remove the newline from the DNA filename open (MYXFILE,$sasa_file); open (PDBFILE, $pdbfile); while (<MYXFILE>){ chomp; @sa = split(/\t/,$_); #print "$sa[0] $sa1 $sa2\n"; #$res = substr $_, 0, 4; #$res_no = substr $_, 4, 5; #$atom =substr $_, 9, 3; while (<PDBFILE>){ chomp; $res = substr $_, 17, 3; $res_no = substr $_, 22, 4; $atom =substr $_, 13, 3; #print " $res $res_no $atom \n" ; # works fine if (( $sa[0]eq$res)&&($sa1==$res_no)&&($sa2 eq $atom)) { print "$_"; # does not print anything. } } } close MYXFILE; close PDBFILE;

[prasadbabu]

Hi yads25,

Please use <code> tags to wrap the coding parts in your nodes.

Can you please show us your sample file, so that we can give solutions without assumption.