nr.! /usr/local/bin/perl
$file1= " bana till filename1 ";
min $hash= {};
öppna (File1, ”<>) {
segrare ();
@array=split (/,/, $_);
nedanföra bygganden för #The en hänvisad till pölsa av pölsor
$hash-> {$array [0]} {”finns”}, =1;
$hash-> {$array [0]} {”beskrivning 1 testar”}, =$array [1];
$hash-> {$array [0]} {”sätta in 1 testar”}, =$array [2];
$hash-> {$array [0]} {”sätta in 2 testar”}, =$array [3];
.
.
.
}
#done med att bearbeta file1.
nära (File1);
öppna (File2, ”<>) {
segrare ();
@array=split (/,/, $_);
om (finns $hash-> {$array [0]} {”finns”}, och $hash-> {$array [0]} {”finns”}, ==1) {
$hash-> {$array [0]} {”sätta in först från understöder sparar”}, =$array [1];
$hash-> {$array [0]} {”understödja sätter in”}, =$array [2];
$hash-> {$array [0]} {”tredje sätter in”}, =$array [3];
.
.
.
.
}
}
#donen med att bearbeta sparar när där matchar stämm.
nära (File2);
#youen har nu en $hash som är en hänvisa till till pölsor.
foreach $key (stämm % {$hash}) {
nr. tryck ”$key: $hash-> {} för $key \ n”;
foreach $index (stämm % {$hash-> {$key}}) {
tryck ”\ $hash-> {”$key”} {”$index”} =$hash-> {$key} {} för $index \ n”;
}
}
|