Muchas gracias de antemano
Using perl Syntax Highlighting
#!/usr/bin/perl
while(<>){
@palabras_separadas_por_lineas = split;
foreach $palabras(@palabras_separadas_por_lineas){
if( exists $frec{$palabras}){
$frec{$palabras} ++;
}
else {
$frec{$palabras} = 1;
}
}
}
foreach $palabras_ordenadas( sort %keys){
print "\n $palabras \t\ $frec{palabras}\n";
}
while(<>){
@palabras_separadas_por_lineas = split;
foreach $palabras(@palabras_separadas_por_lineas){
if( exists $frec{$palabras}){
$frec{$palabras} ++;
}
else {
$frec{$palabras} = 1;
}
}
}
foreach $palabras_ordenadas( sort %keys){
print "\n $palabras \t\ $frec{palabras}\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4