Hola, ¿qué tal...?
Quisiera ver si me podrían ayudar con este problema que tengo...
Estoy haciendo un código en el cual tengo que contar un par de palabras que son "Pre y Post"... pero algo anda mal ya que me sí me imprime cuántas veces se encontraron dichas palabras pero tengo la duda de cómo separar mi archivo por el ">" que está al principio de cada línea para así hacerlo por segmentos...
Espero y me haya explicado correctamente. Este es mi archivo de entrada:
Using text Syntax Highlighting
>Secuencia 1
1 99aa, >Pre_G19AR2G01BCA7... *
2 99aa, >Pre_G19AR2G01A18P... at 98%
3 99aa, >Pre_G19AR2G01A2BF... at 100%
>Secuencia 2
1 96aa, >Post_G19AR2G05F2B... at 97%
2 96aa, >Post_G19AR2G05F3L... at 97%
3 96aa, >Post_G19AR2G05FV4... at 97%
4 96aa, >Post_G19AR2G05GF0... at 97%
5 96aa, >Post_G19AR2G05GF6... at 97%
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Y este mi código:
Using perl Syntax Highlighting
open(my $fh, $ARGV[0]) or die "No se puede abrir el archivo\n";
my @content = <$fh>;
close(FILE);
my $i;
my $j;
foreach (@content) {
$i++ if ($_ =~ /Pre/);
}
print "$i\t";
foreach (@content) {
$j++ if ($_ =~ /Post/);
}
print "$j\n";
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Les agradecería mucho su ayuda.
Saludos