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" ) or die "No se puede abrir";
- while ( $linea = <FH> ) {
- $codon = substr( $linea, 0, 3 );
- push( @codones, $codon );
- print FH2 "@codones:";
- }
- }
- print "hecho";
- close(FH);
- close(FH2);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
