Using perl Syntax Highlighting
my $total = 0;
for (my $i = 0; $i < @registros; $i++) {
my $veces = () = $registros[$i] =~ /$busqueda/i;
print "La palabra aparece $veces veces en el registro $i de genbank.txt\n";
$total += $veces;
}
print "Sale un total de $total veces\n";
for (my $i = 0; $i < @registros; $i++) {
my $veces = () = $registros[$i] =~ /$busqueda/i;
print "La palabra aparece $veces veces en el registro $i de genbank.txt\n";
$total += $veces;
}
print "Sale un total de $total veces\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
sé que no sé nada de Perl... pero apenas estoy empezando en esto...