Re: Acumulación de texto
Publicado: 2012-05-15 13:12 @592
Perdón, me confundí de código. El código que tengo para este problema es este. La duda que tengo es como representar el "espacio en blanco" en if ($linea2 =~ "CTA TGA") pues si pongo solo CTA me devuelve el resultado positivo, pero si hay espacio en medio no, y sí que hay en el archivo de texto.
$contador = 0;
@codones = ();
while ($contador < 20){
$contador += 1;
$espermatozoide = "espermatozoide$contador.txt";
open (FH, "$espermatozoide") or die "No se puede abrir";
open (FH2, " > result$contador.txt");
while ( $linea = <FH> ){
$codon = substr ($linea, 0, 3);
push (@codones, $codon);
print FH2 "@codones ";
}
@codones = ();
}
print "Hecho\n";
close (FH);
close (FH2);
$contador2 = 0;
while ($contador2 < 20) {
$contador2 += 1;
$result = "result$contador.txt";
open (FH2, "$result") or die "No se pudo abrir el archivo";
open (FH3, " > aminoacidos$contador2.txt");
while ($linea2 = <FH2>) {
if ($linea2 =~ "CTT TGA") {
print FH3 "Tenemos Alanina\n";
}
}
}
close (FH2);
close (FH3);
$contador = 0;
@codones = ();
while ($contador < 20){
$contador += 1;
$espermatozoide = "espermatozoide$contador.txt";
open (FH, "$espermatozoide") or die "No se puede abrir";
open (FH2, " > result$contador.txt");
while ( $linea = <FH> ){
$codon = substr ($linea, 0, 3);
push (@codones, $codon);
print FH2 "@codones ";
}
@codones = ();
}
print "Hecho\n";
close (FH);
close (FH2);
$contador2 = 0;
while ($contador2 < 20) {
$contador2 += 1;
$result = "result$contador.txt";
open (FH2, "$result") or die "No se pudo abrir el archivo";
open (FH3, " > aminoacidos$contador2.txt");
while ($linea2 = <FH2>) {
if ($linea2 =~ "CTT TGA") {
print FH3 "Tenemos Alanina\n";
}
}
}
close (FH2);
close (FH3);