Hola, aquí, aprendiendo Perl y haciendo mi primera pregunta en el foro.
¿Cómo debo interpretar los valores $fi, $fi, $fi etc., tanto para $f1 y $r1?
Agradezco su ayuda.
while(my $f1=<WF>){
$f1=$f1;
chomp($f1=<WF>);
$f1=<WF>;
chomp($f1=<WF>);
$r1=<WR>;
chomp(my $temp1=<WR>);
$r1=reverse($temp1);
$r1=~s/A/a/g;
$r1=~s/T/t/g;
$r1=~s/C/c/g;
$r1=~s/G/g/g;
$r1=~s/a/T/g;
$r1=~s/t/A/g;
$r1=~s/c/G/g;
$r1=~s/g/C/g;
$r1=<WR>;
chomp(my $temp2=<WR>);
$r1=reverse($temp2);
my $rf1=$f1.$c_60.$r1;
chomp($f1);
print FILE "$f1 $rf1\n";
}