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.
-
- Publicidad
Contar la repetición de una palabra
8 mensajes
• Página 1 de 1
Contar la repetición de una palabra
por vtaborda » 2007-02-16 06:49 @325
- vtaborda
- Perlero nuevo
- Mensajes: 2
- Registrado: 2007-02-16 06:42 @321
Publicidad
por kondenado » 2007-02-16 19:25 @851
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";
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.
Última edición por kondenado el 2007-02-17 15:01 @667, editado 2 veces en total
-
kondenado - Perlero nuevo
- Mensajes: 43
- Registrado: 2006-08-21 18:57 @831
por kidd » 2007-02-16 20:22 @890
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:
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
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:
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";
}
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
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por explorer » 2007-02-17 13:51 @619
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).
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).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por explorer » 2007-02-17 15:29 @687
Este problema ya se ha comentado varias veces en este foro.
http://perldoc.perl.org/perlfaq6.html#H ... summary%3F
http://perldoc.perl.org/perlfaq6.html#H ... summary%3F
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 21 invitados