Foro - Perl en Español

por **crodriguez** » 2012-12-29 20:26 @893

Buenas, soy nuevo en esto de Perl y quisiera pedirles ayuda para que me aconsejen cómo podría hacer para llenar un array en Perl y después trasladar ese array a una base de datos pero sin contar los repetidos. El array lo quiero llenar con una lista de nombres que está en texto en forma vertical, ejemplo:

carlos
eduardo
maria
pepe
lucho
carlos
jose
lucia
maria
maria

Es algo así.

Agradecería que me pudieran dar una ayuda con este tema, muchas gracias.

Bienvenido a los foros de Perl en Español, crodriguez.

El problema se puede resolver de muchas formas. Una de ellas puede ser esta:

Abres el archivo con open(). Vas leyendo línea a línea con while(). Por cada línea, metes el nombre leído en una entrada hash, con un valor cualquiera (por ejemplo, 1). Después de leer todas las líneas, en el hash tendrás los nombres únicos. Solo te queda grabarlos en la base de datos.

Por estos foros hay docenas de ejemplos así. La última, hace cinco días.

Inténtalo. Por aquí estaremos para echarte una mano.

Recuerda visitar la sección de Tutoriales (en el menú de la parte de arriba).

por **crodriguez** » 2012-12-30 00:14 @051

Disculpa, si no fuese mucha molestia, ¿podrías decirme qué es lo que estoy haciendo mal acá?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open(archivo,"/root/logs/ns5/named-queries.log.1") or die "ERROR: No puedo abrir archivo: $!\n";
 
archivo=cat /root/logs/ns5/named-queries.log.1 | \;
archivo=tr 'A-Z' 'a-z' | \;
archivo=grep ' in a ' | \;
archivo=grep '\.pe ' | \;
archivo=sed 's/.*query: //' | \;
archivo=sed 's/\.pe.*$/\.pe/g' | \;
archivo=sort | \;
archivo=uniq \;
 
@a = <archivo>;
chomp(@a);
foreach $linea(@a)
{
print "$linea\n";
}
close(archivo);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

y otra cosa como despues de hacer todo eso podria generar un nuevo archivo con la lista obtenida.
muchas gracias por la ayuda y feliz año nuevo

por **explorer** » 2012-12-30 08:47 @407

Pues... básicamente... porque eso que has escrito, en su mayor parte, no es lenguaje Perl.

¿Qué textos estás usando para aprender Perl? ¿Lo estás haciendo por tu cuenta o estás recibiendo clases?

por **crodriguez** » 2012-12-30 11:38 @526

Bueno, yo estoy aprendiendo por mi cuenta y la verdad es que es la primera vez que uso Perl. En sí todo esto lo estoy trabando en Linux remotamente y mis scripts los hago en Windows mediante el block de notas y con Winscp lo paso al servidor de Linux que tiene instalado Perl.

Bueno, ¿qué me recomiendas que haga??
De antemano muchas gracias por tu tiempo.

por **explorer** » 2012-12-30 13:29 @603

En los tutoriales (menú de la parte superior) tienes algún ejemplo de cómo abrir archivos. Por estos foros hay un montón de ejemplos, también: Empezar desde cero.

Si tienes problemas con el inglés, puedes ir al proyecto POD2::ES y leer parte de la documentación Perl traducida al español. perlintro es una muy buena introducción al lenguaje. Allí se comenta cómo abrir archivos, también. Y lo que significan los hash, que deberás usar en tu problema.

No entiendo porqué trabajas primero en local y luego transfieres los programas al Linux. Puedes trabajar directamente en Linux, conectándote por SSH. Tendrás que ver qué editores de texto tienes disponible en ese Linux, pero por lo demás, todo lo puedes hacer allí.

Otra opción es trabajar siempre en Windows. Te recomiendo que uses la distribución ActivePerl de la empresa ActiveState.

Una forma de resolverlo sería así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
use autodie;
 
open my $ARCHIVO, '<', '/root/logs/ns5/named-queries.log.1';
 
my %nombres;
 
while (my $nombre = <$ARCHIVO>) {     # mientras no lleguemos al fin del archivo, leemos una línea del $ARCHIVO
    chomp $nombre;                    # le quitamos el/los carácter de fin de línea
    $nombres{$nombre} = 1;            # guardamos el nombre leído en el hash
}
 
close $ARCHIVO;
 
for my $nombre (keys %nombres) {      # recorremos los nombres almacenados
    say $nombre;                      # los sacamos a pantalla
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **crodriguez** » 2013-01-01 16:35 @733

Muchas gracias por la ayuda. Ahora me pondré a estudiarlo más a fondo.
Si me funciona se los publico

Gracias nuevamente.

Foro - Perl en Español

Eliminar repeticiones

Eliminar repeticiones

Publicidad

Re: Eliminar repeticiones

Re: Eliminar repeticiones

Re: Eliminar repeticiones

Re: Eliminar repeticiones

Re: Eliminar repeticiones

Re: Eliminar repeticiones

¿Quién está conectado?