#! /usr/local/bin/perl
$file1= " курс к filename1 ";
мое $hash= {};
раскройте (File1, ")<> {
chomp ();
@array=split (/,/, $_);
#The ниже строит снабженный ссылками хэш hashes
$hash-> {$array [0]} {«существует»} =1;
$hash-> {$array [0]} {«испытание описания 1»} =$array [1];
$hash-> {$array [0]} {«испытание поля 1»} =$array [2];
$hash-> {$array [0]} {«испытание поля 2»} =$array [3];
.
.
.
}
#done с обрабатывать file1.
конец (File1);
раскройте (File2, ")<> {
chomp ();
@array=split (/,/, $_);
если (существует $hash-> {$array [0]} {«существует»} и $hash-> {$array [0]} {«существует»} ==1) {, то
$hash-> {$array [0]} {«первое поле от второго архива»} =$array [1];
$hash-> {$array [0]} {«второе поле»} =$array [2];
$hash-> {$array [0]} {«третье поле»} =$array [3];
.
.
.
.
}
}
#done с обрабатывать хранит когда сопрягают ключей.
конец (File2);
#you теперь имеет $hash справка к hashes.
foreach $key (ключи % {$hash}) {
# печать «$key: $hash->} {$key \ n»;
foreach $index (ключи % {$hash-> {$key}}) {
печать «\ $hash-> {«$key»} {«$index»} =$hash-> {$key}} {$index \ n»;
}
}
|