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.004 segundos, usando GeSHi 1.0.8.4