#! /usr/local/bin/perl
$file1= " percorso a filename1 ";
il mio $hash= {};
aprir (File1, ")<> {
chomp ();
@array=split (/,/, $_);
il #The sotto costruisce un hash riferito di trita
$hash-> {$array [0]} {“esiste„} =1;
$hash-> {$array [0]} {“prova di descrizione 1„} =$array [1];
$hash-> {$array [0]} {“prova del campo 1„} =$array [2];
$hash-> {$array [0]} {“prova del campo 2„} =$array [3];
.
.
.
}
#done con l'elaborazione del file1.
fine (File1);
aprir (File2, ")<> {
chomp ();
@array=split (/,/, $_);
se (esiste $hash-> {$array [0]} {“esiste„} e $hash-> {$array [0]} {“esiste„} ==1) {
$hash-> {$array [0]} {“primo campo dalla seconda lima„} =$array [1];
$hash-> {$array [0]} {“secondo campo„} =$array [2];
$hash-> {$array [0]} {“terzo campo„} =$array [3];
.
.
.
.
}
}
il #done con l'elaborazione archiva quando sta abbinando le chiavi.
fine (File2);
il #you ora ha un $hash a che è un riferimento trita.
foreach $key (chiavi % {$hash}) {
# stampa “$key: $hash->} \ n {di $key„;
foreach $index (chiavi % {$hash-> {$key}}) {
stampa “\ $hash-> {“$key„} {“$index„} =$hash-> {$key}} \ n {di $index„;
}
}
|