Foro - Perl en Español

por **DrGuero** » 2015-05-06 04:35 @233

Hola, buenos días.

Quiero hacer un pequeño script que me permita leer una primera columna de palabras y que compare cada palabra de la primera columna con las palabras de la segunda columna. Solo si las palabras son iguales quiero que el programa me imprima las columnas ordenadas.

Ejemplo: (file1.txt)
a b
b c
c a
j z

Ejemplo (resultado final)
a a
b b
c c

Con mi programa no consigo el resultado esperado y por el momento no encuentro el error.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
open( file, "file1.txt" ) or die("error");
my $nom2;
while (<file>) {
    my @list = split( /\t/, $_ );
    my $nom1 = $list[0];
    my $nom2 = $list[1];
    if ( $nom1 eq $nom2 ) {
 
        print("$nom1\t$nom2\n")
 
    }
 
}
close(file) or die("I cannot close the file");
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Agradezco cualquier consejo o ayuda. ¡Muchísimas gracias!

use strict;
open(file,"file1.txt") or die ("error");
while (<file>)
{
my @list=split(/\t/,$_);
my $nom1=$list[0];
my $nom2=$list[1];
 
foreach $nom1($nom1){
if ($nom1 == $nom2){
 
 
print "$nom1\t$nom2";
                             }
                                        }
                   
 
}
close (file) or die ("I cannot close the file");
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

He seguido tu consejo y he intentado usar el foreach. Lo que no sé es cómo hacer que una palabra de la primera columna recorra toda la segunda columna.

Gracias por tu paciencia, cualquier pista es apreciada.

Dr. Guero

por **explorer** » 2015-05-06 08:48 @408

Como se trata de buscar información en todas las líneas, lo primero que hay que hacer es leer y guardar todos los valores de todas las columnas.

Entonces, podrías recorrer con el while() todas las líneas del archivo, y por cada una de ellas, la divides en columnas, y vas guardando las columnas. Más tarde, cuando lo hayas leído todo, recorres los valores de la primera columna, y miras a ver si está entre los datos de la segunda columna.

Los datos los puedes guardar en un array, por ejemplo, pero este problema, el de recordar si un elemento lo hemos visto o no, es adecuado resolverlo con un hash.

Por ejemplo, si hemos metido los datos de la segunda columna en el hash %segunda_columna, entonces, para saber si existe una coincidencia entre un valor de la primera columna y alguna de la segunda, haríamos

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $valor (sort keys %primera_columna) {
    if (exists $segunda_columna{$valor}) {
        # ...
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Con la ayuda de keys() extraemos los valores de la primera columna. sort() los reordena alfabéticamente. Los valores son recorridos por el for, uno cada vez en $valor. En el if, preguntamos "¿existe $valor en la %segunda_columna?"

También se puede resolver con array, pero entonces debes hacer un doble bucle, para que se compare cada valor de la primera columna con todos los valores de la segunda.

Foro - Perl en Español

Comparar palabras entre columnas

Comparar palabras entre columnas

Publicidad

Re: Comparar palabras entre columnas

Re: Comparar palabras entre columnas

Re: Comparar palabras entre columnas

¿Quién está conectado?