#! /usr/local/bin/perl
$file1= " ścieżka filename1 ";
mój $hash= {};
otwierać (File1, ")<> {
chomp ();
@array=split (/,/, $_);
#The pod budowa odnosić się hash hashes
$hash-> {$array [(0)]} {"istnieć"} =1;
$hash-> {$array [(0)]} {"opis (1) próbny"} =$array [(1)];
$hash-> {$array [(0)]} {"pole (1) próbny"} =$array [2];
$hash-> {$array [(0)]} {"pole 2 próbny"} =$array [3];
.
.
.
}
#done z file1.
zakończenie (File1);
otwierać (File2, ")<> {
chomp ();
@array=split (/,/, $_);
jeżeli (istnieć $hash-> {$array [(0)]} {"istnieć"} i $hash-> {$array [(0)]} {"istnieć"} ==1) {
$hash-> {$array [(0)]} {"pierwszy pole od drugi kartoteka"} =$array [(1)];
$hash-> {$array [(0)]} {"po drugie pole"} =$array [2];
$hash-> {$array [(0)]} {"trzeci pole"} =$array [3];
.
.
.
.
}
}
#done z przerobowy kartoteka gdy tam być dopasowywanie klucz.
zakończenie (File2);
#you teraz mieć $hash który być odniesienie hashes.
foreach $key (klucz % {$hash}) {
# druk "$key: $hash-> {$key} \ n";
foreach $index (klucz % {$hash-> {$key}}) {
druk "\ $hash-> {"$key"} {"$index"} =$hash-> {$key} {$index} \ n";
}
}
|