# ! /usr/local/bin/perl
$file1= " chemin à filename1 " ;
mon $hash= {} ;
s'ouvrir (File1, ")<> {
chomp () ;
@array=split (/,/, $_) ;
le #The ci-dessous construit un gâchis référencé de hache
$hash-> {$array [0]} {« existe »} =1 ;
$hash-> {$array [0]} {« essai de description 1 »} =$array [1] ;
$hash-> {$array [0]} {« essai sur le terrain 1 »} =$array [2] ;
$hash-> {$array [0]} {« essai sur le terrain 2 »} =$array [3] ;
.
.
.
}
#done avec traiter file1.
fin (File1) ;
s'ouvrir (File2, ")<> {
chomp () ;
@array=split (/,/, $_) ;
si (existe $hash-> {$array [0]} {« existe »} et $hash-> {$array [0]} {« existe »} ==1) {
$hash-> {$array [0]} {« premier champ à partir de deuxième dossier »} =$array [1] ;
$hash-> {$array [0]} {« deuxième champ »} =$array [2] ;
$hash-> {$array [0]} {« troisième champ »} =$array [3] ;
.
.
.
.
}
}
le #done avec le traitement classe quand là assortissent des clefs.
fin (File2) ;
le #you ont maintenant un $hash au lequel est une référence hache.
foreach $key (clefs % {$hash}) {
# copie « $key : $hash-> {} de $key \ n » ;
foreach $index (clefs % {$hash-> {$key}}) {
copie « \ $hash-> {« $key »} {« $index »} =$hash-> {$key} {} de $index \ n » ;
}
}
|