Hola de nuevo.
Al intentar imprimir en un archivo
resultadofinal$contador (correspondiente a los respectivos archivos
result$contador) los aminoácidos que contiene cada
result$contador según los tripletes que tenga, he desarrollado el siguiente código, pero sólo se me ejecuta la primera parte (imprime "hecho" en el terminal y ni siquiera se crea otro archivo
resultadofinal$contador.txt, y en otro de mis múltiples intentos, una vez se creó el archivo pero sin imprimir nada dentro, cuando deberían estar los aminoácidos.
Gracias.
Using perl Syntax Highlighting
$contador = 0;
@codon = ();
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";
close(FH);
close(FH2);
while ( $contador < 20 ) {
$contador += 1;
open( RE, "result$contador.txt" ) or die "No se puede abrir\n";
open( RE2, ">+resultadofinal$contador.txt" ) or die "No se puede abrir\n";
chomp( @lineas = <RE> );
my ($line);
foreach $line (@lineas) {
if ( $line =~ "CAG TTA" ) { print RE2 "CONTIENE ALANINA" }
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
