Foro - Perl en Español

por **Pepito_el_programer** » 2016-10-25 10:49 @492

Buenas de nuevo.

Tengo un problemilla y no sé cómo continuar, o más bien, qué es lo que estoy haciendo mal.

Tengo dos ficheros, uno contiene información de personas, como 'dni', 'nombre', etc., en un fichero plano separado por ",". Lo vamos a llamar 'fichero.txt' y el otro solo contiene el DNI. Lo llamamos Dni.txt.

En el primer fichero existen 50 registros y en el segundo fichero 10 registros cuyos DNI aparecen en el fichero primero.
Tengo que quedarme con un fichero que contenga los 40 restantes, es decir, los DNI que no aparezcan en el segundo fichero.

Habrá mil maneras y seguramente más eficaces que la mía. Mi camino ha sido meter los datos de esos fichero en dos arrays, recorrerlos y comparar. Si existe, no hago nada y si no existen, los guardo en un tercer array que será mi fichero final.

He intentando por medio de arrays, crear una hash de DNI para comparar y no me funciona nada. Si me podéis ayudar, dar unas pautas, indicarme qué es lo que falló. Lo agradezco.

Este es mi código.

Un saludo y muchas gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
use strict;
use warnings;
 
my $file  = 'fichero.txt';
my $file2 = 'Dni.txt';
my %dni;
my @dnis;
my @fichero;
my @campo;
open( my $data2, '<', $file2 ) or die;
 
while ( my $nu = <$data2> ) {
    $dni{$nu} = 1;
    @dnis = sort keys %dni;
}
 
open( my $data, '<', $file ) or die;
while ( my $line = <$data> ) {
    push( @fichero, $line );
}
 
for my $fi (@fichero) {
    @campo = split ",", $fi;
    if ( exists $dni{ $campo[0] } ) {
        print "existe\n";
    }
    else {
        print "no existe\n";
    }
}
 
exit 0;
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
use common::sense;
 
my %dni;
 
open(DNI, '<Dni.txt') or die "$!\n";
while ( my $linea = <DNI> ) {
    my ($columna) = split(" ", $linea);
 
    $dni{$columna} = $linea;
}
close(DNI);
 
open(FICHERO, '<fichero.txt') or die "$!\n";
open(SALIDA, '>salida.txt') or die "$!\n";
 
while ( my $linea = <FICHERO> )
{
        my ($columna) = split(",", $linea);
        if (!$dni{$columna} )
        {
                print SALIDA $columna;
        }
}
 
close(FICHERO);
close(SALIDA);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No sé si funcionará con lo que pides, de igual forma, ya me estoy volviendo viejo.

por **explorer** » 2016-10-25 17:35 @774

En efecto, la solución es meter todos los DNI en un hash, como claves (los valores, dan igual, siempre que no sean '0', 0, undef, o la cadena vacía).

Luego, abrimos el fichero principal y lo recorremos por filas. Por cada fila, sacamos el campo del DNI, y miramos a ver si existe en el hash o no. Con un if() vale para saberlo.

Foro - Perl en Español

Comparación de dos arrays y eliminar lo común

Comparación de dos arrays y eliminar lo común

Publicidad

Re: Comparación de dos arrays y eliminar lo común

Re: Comparación de dos arrays y eliminar lo común

¿Quién está conectado?