Hi All,
I am having a small problem with my if looops. I have
written a small script to parse a file I have
input:
HMU00030 2522 4840 DNA gyrase subunit B
HMU00040 4841 5083 putative membrane protein
HMU00050 5080 5739 c putative periplasmic C39-family
peptidase
HMU00060 5739 6549 c putative inner membrane protein
Wrote a perl script to convert c in fourth column to - and
if not equal to see then +
while(<>){
($Gene, $Start, $Stop, $strand, $Product) = split(/\t/,
$_);
if ($strand eq "c"){
print "$Gene\t-\t$Start\t$Stop\t$Product\n";
}else{
print "$Gene\t+\t$Start\t$Stop\t$Product\n";
}
}
unfortunatly output is either all + or all - ?
any ideas?
regards
Brian
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
