17 Cze 2009

Porówniane dwóch plików w perlu.

open (FH,"<lista_01.txt");
while(<FH>){
@arr=split(" ",$_);
$hash{$arr[0]}=$_;
}
close(FH);

open (FO, ">lista_wynikowa.txt");

open (FH,"<lista_02.txt");
while(<FH>){
@arr=split(" ",$_);

if(exists($hash{$arr[0]})){
#    print $hash{$arr[2]} . "";
#    print FO $_;
print FO $_;
}
}
close(FH);