#! /usr/local/bin/perl
$file1= " Weg zu filename1 ";
mein $hash= {};
öffnen (File1, ")<> {
chomp ();
@array=split (/,/, $_);
das folgende #The errichtet ein bezogenes Durcheinander von hackt
$hash-> {$array [0]} {„existiert“}, =1;
$hash-> {$array [0]} {„Test der Beschreibung 1“} =$array [1];
$hash-> {$array [0]} {„Test des Feldes 1“} =$array [2];
$hash-> {$array [0]} {„Test des Feldes 2“} =$array [3];
.
.
.
}
#done mit der Verarbeitung von file1.
Abschluss (File1);
öffnen (File2, ")<> {
chomp ();
@array=split (/,/, $_);
wenn (existiert $hash-> {$array [0]} {„existiert“} und $hash-> {$array [0]} {„existiert“}, ==1) {
$hash-> {$array [0]} {„erstes Feld von der zweiten Akte“} =$array [1];
$hash-> {$array [0]} {„an zweiter Stelle Feld“} =$array [2];
$hash-> {$array [0]} {„drittes Feld“} =$array [3];
.
.
.
.
}
}
#done mit der Verarbeitung archiviert, wenn Schlüssel zusammenbringen.
Abschluss (File2);
#you haben jetzt ein $hash, dem ein Hinweis auf hackt ist.
foreach $key (Schlüssel % {$hash}) {
# Druck „$key: $hash-> {$key} \ n“;
foreach $index (Schlüssel % {$hash-> {$key}}) {
Druck „\ $hash-> {„$key“} {„$index“} =$hash-> {$key} {$index} \ n“;
}
}
|