Foro - Perl en Español

[vtaborda]

Hola amigos del Perl.
Hace un tiempo largo que no toco el lenguaje y tengo un problema que resolver.
Tengo que leer varios archivos y contar la cantidad de veces que se repite una palabra sobre una lista de palabras seleccionadas.
Creo tener resuelto el tema si hago lo siguiente:
- Leo el archivo y lo asigno por completo a una variable.
- Tomo la primera palabra. Cuento cuanta veces se repite.
- Grabo en otro archivo.
- Tomo la siguiente palabra y así...

El tema es que no encuentro la forma de CONTAR la cantidad de veces que se repite una cadena en otra.
¿Alguien tiene una pista?.

Muchas gracias.

[Perl user]

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my %contador;
$contador{ $palabra }++;
 

Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

Saludos,

[vtaborda]

Por ahí no se entendió, lo que necesito saber es saber la cantidad de veces que se repite la palabra en el archivo.
Necesito saber el número de veces.
Gracias

[Perl user]

¿Qué parte no entiendes o qué parte no te sirve?

¿Intentaste pensar un poco en qué te puede servir la solución que te dí?

Saludos,

[kondenado]

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;

my $archivo = 'archivo';
open (FILE, $archivo) || die "$!\n";
my @content = <FILE>;
close(FILE);

my $i;
foreach (@content) {
             $i++ if ($_ =~ /palabra/);  #palabra que deseas buscar
}
print 'La palabra ha sido encontrada '.$i.' veces en '.$archivo;
print "\n";

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Bueno es algo más largo que el anterior pero también sirve.

[kidd]

Hola vtaborda, bienvenido al foro de Perl en Español.

Es importante que tengas en consideración lo siguiente, nosotros estamos dispuesto a ayudarte en tus problemas, pero al final de cuenta son tus problemas, así que es mal visto cuando alguien pide que se le haga un script o que se dé la solución de un problema sin que nosotros veamos antes un verdadero esfuerzo de tu parte.

Por esta razón Perl User te dió pistas o guías que puedes seguir para que empieces a explorar diferentes posibilidades a partir de las cuales nosotros te podríamos dar una ayudada, pero al final de cuentas, nosotros ayudamos NO estamos para servir.

Sé que no es tu intención esa, pero como planteaste el problema así lo parece.

Aquí te dejo un ejemplo de un script que abre un archivo y hace el conteo de todas las palabras que hay en él:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use strict;
use warnings;

# Archivo que quieres parsear
my $archivo = 'tu_archivo.txt';

my %Palabras;

open my $FILE, '<', $archivo or die("No pude abrir el archivo: $!");

while (my $linea = <$FILE>) {

    chomp $linea;

    $Palabras{lc $_}++ for split /\s+/, $linea;

}

close $FILE;


#Ahora vemos el resultado del conteo

for my $palabra ( sort { $Palabras{$b} <=> $Palabras{$a} } keys %Palabras) {
    print $Palabras{ $palabra } . " - " . $palabra . "\n";
}

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Deja te explico un poco lo que hace para que puedas empezar a modificarlo para que haga lo que necesitas.

Abre un archivo y lo lee línea por línea. Cada línea la divide por palabras (esta división es muy relativa, pues realmente divido por espacios pre-suponiendo que cada palabra está separada por espacio) usando la función split.

Usando el hash %Palabras se lleva el conteo de cada palabra que se va encontrando, no antes sin convertir todas las palabras en minúsculas usando la función lc para que sea lo mismo la palabra "Agua" que "agua".

Ya al final se muestra el resultado de todas las palabras encontradas ordenándolas por las que tienen más apariciones en el archivo.

Creo que esto te dá suficiente para empezar a crear el script que necesitas, también te recomiendo que cheques la sección de tutoriales donde podrás encontrar más información.


Saludos

[explorer]

Habría que empezar por definir lo que es una palabra.

No vale con decir aquello que está separado por espacios, porque los signos de puntuación suelen estar al lado de las palabras.

Ejemplo: es la misma palabra esta, que esta. Pero si separamos esta línea por los espacios en blanco, serán dos palabras distintas (una tendrá una coma y la otra, un punto).

[explorer]

Este problema ya se ha comentado varias veces en este foro.
http://perldoc.perl.org/perlfaq6.html#H ... summary%3F