#! /usr/local/bin/perl
$file1= " trajeto a filename1 ";
meu $hash= {};
abrir (File1, ")<> {
chomp ();
@array=split (/,/, $_);
o #The abaixo constrói uma mistura provida de pica
$hash-> {$array [0]} {“existe”} =1;
$hash-> {$array [0]} {da “teste descrição 1”} =$array [1];
$hash-> {$array [0]} {do “teste campo 1”} =$array [2];
$hash-> {$array [0]} {do “teste campo 2”} =$array [3];
.
.
.
}
#done com processamento de file1.
fim (File1);
abrir (File2, ")<> {
chomp ();
@array=split (/,/, $_);
se (existe $hash-> {$array [0]} {“existe”} e $hash-> {$array [0]} {“existe”} ==1) {
$hash-> {$array [0]} {“primeiro campo da segunda lima”} =$array [1];
$hash-> {$array [0]} {“segundo campo”} =$array [2];
$hash-> {$array [0]} {“terceiro campo”} =$array [3];
.
.
.
.
}
}
o #done com processamento arquiva quando está combinando chaves.
fim (File2);
o #you tem agora um $hash a que seja uma referência pique.
foreach $key (chaves % {$hash}) {
# cópia “$key: $hash->} {de $key \ n”;
foreach $index (chaves % {$hash-> {$key}}) {
cópia “\ $hash-> {“$key”} {“$index”} =$hash-> {$key}} {de $index \ n”;
}
}
|