#! /usr/local/bin/perl
$file1= " weg aan filename1 ";
mijn $hash= {};
open (File1, „<>) {
chomp ();
@array=split (/,/, $_);
#The bouwt hieronder een referenced knoeiboel van knoeiboel
$hash-> {$array [0]} {„bestaat“} =1;
$hash-> {$array [0]} {„beschrijving 1 test“} =$array [1];
$hash-> {$array [0]} {„gebied 1 test“} =$array [2];
$hash-> {$array [0]} {„gebied 2 test“} =$array [3];
.
.
.
}
#done met verwerking file1.
sluit (File1);
open (File2, „<>) {
chomp ();
@array=split (/,/, $_);
als (er bestaat $hash-> {$array [0]} {„bestaat“} en $hash-> {$array [0]} {„bestaat“} ==1) {
$hash-> {$array [0]} {„eerste gebied van tweede dossier“} =$array [1];
$hash-> {$array [0]} {„tweede gebied“} =$array [2];
$hash-> {$array [0]} {„derde gebied“} =$array [3];
.
.
.
.
}
}
#done met verwerkingsdossiers wanneer er passende sleutels zijn.
sluit (File2);
#you hebben nu een $hash die een verwijzing naar knoeiboel is.
foreach $key (sleutels % {$hash}) {
# druk „$key: $hash-> {$key} \ n“;
foreach $index (sleutels % {$hash-> {$key}}) {
druk „\ $hash-> {„$key“} {„$index“} =$hash-> {$key} {$index} \ n“;
}
}
|