Foro - Perl en Español

por **Icaro** » 2009-09-06 16:08 @714

Bueno, me presento, soy Icaro, estoy empezando en esto de Perl. Después de hacer un curso guiado para meter correctamente el captcha de la web, me dispongo a hacer mi pregunta.

Mi problema es que tengo dos archivos de texto, Texto1.txt, Texto2.txt y contienen una lista de palabras.

Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

texto1: Admin, 123, great, Password

texto2: Great, Admin, 123, password, excel, good Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y la salida sería esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Text3.txt: AdminGreat, AdminAdmin, Admin123, Adminpassword ... PasswordGreat, PasswordAdmin, etc Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo he puesto en forma de línea para ahorrar espacio, pero las palabras están de esta manera (en forma de columna única):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Admin

123

greatColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El problema que me surgió al intentarlo en PHP y Java es que se queda colgado debido a la cantidad de palabras, y como quiero aprender Perl pues es la mejor ocasión para empezar

Gracias de antemano.

Pues de eso se trata... de intentarlo...

Puedes empezar por visitar la sección de Tutoriales, en la pestaña superior.

Por lo que veo del problema, se puede realizar así:
* Abrir el primer fichero y leer las palabras y meterlas en un array
* Lo mismo para segundo fichero, en otro array
* Hacer un bucle por todas las palabras del primer arreglo. Por cada una de ellas,
* Hacer un bucle por todas las palabras del segundo arreglo.
* Imprimir la concatenación de la primera y la segunda palabras.
* Fin del bucle segundo
* Fin del bucle primero

De cada de estas operaciones hay decenas de ejemplos, en estos foros.

Haz una prueba con tu código, y si no te sale, lo publicas y vemos cómo arreglarlo.

por **Icaro** » 2009-09-06 17:15 @760

Veamos, con algo de ayuda de ustedes y de Internet tengo esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
 
my %frequencies = ();
my $re = ''; 
print "Archivo de salida:";
chomp($re = <STDIN>);
Begin();
 
sub Begin {
   print "Archivo de entrada:";
   chomp(my $ro = <STDIN>);
   open(RO, $ro) or die "No se pudo abrir el archivo $ro: $!";
   open(RE, ">>$re") or die "No se pudo abrir el archivo $re: $!";
   print RE while <RO>;
   close(RO);
   close(RE);
   Addfile();
}
 
sub Addfile {
   print "¿Agregar otro archivo?(s/n):"; #puedes juntar más de dos textos#
   chomp(my $response = <STDIN>);
   if( $response eq 's') {
      Begin();
   }
   else {
      Count();
   }
}
 
sub Count {
   print "\n*** Frecuencia en las que se reptie la palabra... ***\n"; #Es innecesario pero me gusta#
   open(FH,$re) or die "No se pudo abrir el archivo $re: $!";
   while(<FH>) {
      my ($word) = $_ =~ /^(\w+)/;
      $frequencies{$word}++;
   }
   close(FH);
   foreach my $word (sort {$frequencies{$b} <=> $frequencies{$a}} keys %frequencies) {
      print "$word\t$frequencies{$word}\n";
   }
}
exit;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Uso hash porque creo que será mejor ya que utilizaré listas de palabras muy grandes. El problema es que me genera el archivo de esta forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

aaaaa

bbbbb

ccccc

ddddd

11111

22222

33333

44444Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

O sea, en vez de guardar como yo quiero lo único que hace es añadir la palabras del archivo 2 debajo de las del archivo 1 en vez de combinarla.

por **explorer** » 2009-09-07 02:59 @166

No debes usar hash porque Perl no almacena los pares clave/valor en el orden en que se los das. A la hora de recuperarlos te llevarás la sorpresa de que has perdido el orden en que fueron leídas de los ficheros.

Y en cuanto a la combinación... no existe porque no la haces.

Lo único que hace el programa que muestras es hacer una estadística de la frecuencia de aparición de las palabras y luego sacarlas por ese orden. Pero no hay combinación ninguna.

¿No dices que lo tienes hecho para PHP y Java? Pues coges las líneas para PHP y apenas tienes que modificar muy poco para obtener el de Perl.

Ya has hecho la parte de abrir y leer ficheros, que podría quedar mejor así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
open my $fichero1, q[<], 'Texto1.txt';  # Abrimos
open my $fichero2, q[<], 'Texto2.txt';
 
my @palabras1 = <$fichero1>;            # Leemos
my @palabras2 = <$fichero2>;
 
close $fichero1;                        # Cerramos
close $fichero2;
 
chomp @fichero1;                        # Quitamos los caracteres de fin de línea
chomp @fichero2;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora ya tienes todas las palabras leídas en dos arreglos. Solo te queda realizar un doble bucle que recorra cada una ellos, sacando la concatenación de los elementos. El operador de concatenación, en Perl, es el '.'. También puedes hacer la concatenación poniendo las dos variables en una expresión entrecomillada: por ejemplo: print "$palabra1$palabra2\n";

Ánimo, ¡que solo quedan 5 líneas!

P.D. ¿De cuántas palabras estamos hablando para que no funcione en PHP y Java?

Foro - Perl en Español

Juntar dos archivos de texto y sacarlos a otro

Juntar dos archivos de texto y sacarlos a otro

Publicidad

Re: Juntar dos archivos de texto y sacarlos a otro

Re: Juntar dos archivos de texto y sacarlos a otro

Re: Juntar dos archivos de texto y sacarlos a otro

Re: Juntar dos archivos de texto y sacarlos a otro

Re: Juntar dos archivos de texto y sacarlos a otro

¿Quién está conectado?