¡#! /usr/local/bin/perl
$file1= " trayectoria a filename1 ";
mi $hash= {};
abrirse (File1, ")<> {
chomp ();
@array=split (/,/, $_);
el #The abajo construye un picadillo referido de desmenuza
$hash-> {$array [0]} {“existe”} =1;
$hash-> {$array [0]} {“prueba de la descripción 1”} =$array [1];
$hash-> {$array [0]} {“prueba del campo 1”} =$array [2];
$hash-> {$array [0]} {“prueba del campo 2”} =$array [3];
.
.
.
}
#done con el proceso de file1.
cierre (File1);
abrirse (File2, ")<> {
chomp ();
@array=split (/,/, $_);
si (existe $hash-> {$array [0]} {“existe”} y $hash-> {$array [0]} {“existe”} ==1) {
$hash-> {$array [0]} {“primer campo a partir del segunda archivo”} =$array [1];
$hash-> {$array [0]} {“segundo campo”} =$array [2];
$hash-> {$array [0]} {“tercer campo”} =$array [3];
.
.
.
.
}
}
el #done con el proceso archiva cuando está emparejando llave.
cierre (File2);
el #you ahora tiene un $hash a el cual sea una referencia desmenuce.
foreach $key (llaves % {$hash}) {
# impresión “$key: $hash-> {} \ n de $key”;
foreach $index (llaves % {$hash-> {$key}}) {
impresión “\ $hash-> {“$key”} {“$index”} =$hash-> {$key} {} \ n de $index”;
}
}
|