Using perl Syntax Highlighting
# salida del resultado
open (SALIDA,'>salida.txt') # Abrimos un fichero de salida
or die "ERROR: No se pudo abrir el fichero: $!\n";
for my $nombre (sort keys %cuantas_veces_sale) { # Para todos los nombres leídos y ordenados
my $resultado = "$nombre = $cuantas_veces_sale{$nombre}\n";
print $resultado; # Mostramos las veces que aparece
print SALIDA $resultado; # Lo mismo para el fichero
}
close (SALIDA); # Cerramos el fichero
open (SALIDA,'>salida.txt') # Abrimos un fichero de salida
or die "ERROR: No se pudo abrir el fichero: $!\n";
for my $nombre (sort keys %cuantas_veces_sale) { # Para todos los nombres leídos y ordenados
my $resultado = "$nombre = $cuantas_veces_sale{$nombre}\n";
print $resultado; # Mostramos las veces que aparece
print SALIDA $resultado; # Lo mismo para el fichero
}
close (SALIDA); # Cerramos el fichero
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4