#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

# Leemos el fichero Archivo2 y almacenamos la primera columna como claves
# Abrimos los ficheros Archivo1 en lectura y Archivo3 en escritura
# Para todas las líneas de Archivo1
# Si la primera columna de Archivo1 está entre las claves de Archivo2
#   Escribimos la línea de Archivo1 en el Archivo3
# Fin del bucle
# Cerramos los archivos abiertos

# Leemos el fichero Archivo2 y almacenamos la primera columna como claves
open(ORIG,"archivo2.txt");
our %hash = ();
our $elemento;
while ($elemento=<ORIG>){
chomp($elemento);
my @linea = (split "\t",$elemento);
$hash{$linea[0]} = 1;
} 
# Abrimos los ficheros Archivo1 en lectura y Archivo3 en escritura
open(DATOS,"archivo1.txt");
open(OUT,">archivo3.csv");
# Para todas las líneas de Archivo1
while (my $lineas=<DATOS>) {
        chomp($lineas);
        our $col1 = (split "\t",$lineas)[0];
        foreach my $llave (keys %hash){
# Si la primera columna de Archivo1 está entre las claves de Archivo2
                if ($col1 eq $llave) {
#   Escribimos la línea de Archivo1 en el Archivo3
                print OUT "$lineas\n";
                        }
# esta parte es la que no me queda...
                else { print "$elemento"; }
                }
               
}

#   Escribimos la línea de Archivo1 en el Archivo3
                print OUT "$lineas\n";
                        }
# esta parte es la que no me queda...
                else { print "$elemento"; }
                }

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

# Leemos el fichero Archivo2 y almacenamos la primera columna como claves
my %archivo2;

open(FICHERO2, '<Archivo2.txt') or die "$!\n";
while ( my $linea = <FICHERO2> ) {
    my ($columna1) = split(" ", $linea);
    $archivo2{$columna1} = $linea;
}
close(FICHERO2);

# Abrimos los ficheros Archivo1 en lectura y Archivo3 en escritura
open(FICHERO1, '<Archivo1.txt') or die "$!\n";
open(FICHERO3, '>Archivo3.txt') or die "$!\n";

# Para todas las líneas de Archivo1
while ( my $linea = <FICHERO1> ) {

    # Si la primera columna de Archivo1 está entre las claves de Archivo2
    my ($columna1) = split(" ", $linea);
    if ( $archivo2{$columna1} ) {

        # Escribimos la línea de Archivo1 en el Archivo3
        print FICHERO3 $linea;

        # Borramos la clave de Archivo2
        delete $archivo2{$columna1};
    }
}

# Escribimos las líneas de Archivo2 que no se imprimieron
foreach my $clave ( keys %archivo2 ) {
    print FICHERO3 "$clave   0   0\n";
}

# Cerramos los archivos abiertos
close(FICHERO1);
close(FICHERO3);