Соответствующие элементы из 2 массивов в perl

Question

Прямо сейчас я пытаюсь синхронизировать два файла данных, которые перечислены по дате, чтобы впоследствии можно было сравнивать. Однако я не могу напечатать только строки, в которых совпадают даты. На этом этапе я выделил данные для каждого файла на 2 массива. Мне нужно найти только даты, которые находятся в обоих массивах, и распечатать их. Любые предложения будут высоко ценится.

Вот пример набора исходных данных, что я работаю с, каждый файл находится в том же формате:

 
09/11/2009,00:56:00,51.602,47.894,87,88,0,1032 
09/12/2009,00:56:00,57.794,55.796,93,54,0,1023.6 
09/13/2009,00:56:00,64.292,62.204,93,66,0,1014.4 
09/14/2009,00:56:00,61.592,55.4,80,25,0,1009.6 
09/15/2009,00:56:00,58.604,53.798,84,31,0,1009.1 
09/16/2009,00:56:00,53.6,48.902,84,45,0,1017 

Я расколоть дату в массив для каждого файла. Моя конечная цель - напечатать только строки кода, в которых оба файла имеют данные. Поэтому для этого я хотел сравнить 2 массива с элементами, являющимися датами.

Мой исходный код выглядел следующим образом:

foreach $bdate(@bdate){ 
while (<PL>){ 
    chomp; 
    @arr = split (/,/); 
    $pday=$arr[1]; 
    push @pdate, $pday; 
    if ($bdate eq $pdate){ 
     print "$bdate,$pday\n"; 
    } 
} 

Answer 1

Вы против использования внешней функции Unix «комм»?

Answer 2

Один из способов (из многих) состоял бы в том, чтобы перебирать один раз через каждый массив, создавая хэш следующим образом;

Затем вы можете распечатать ключи, соответствующие значениям 2 или более;

print $_,"\n" for grep {$dates{$_} > 1} keys %dates; 

(тестировался, написанный на машине, без Perl)

... и быстрый поиск CPAN поворачивает вверх List::Compare, с этим примером;

$lc = List::Compare->new(\@Llist, \@Rlist); 

@intersection = $lc->get_intersection; 

Answer 3

Вот пример из perlfaq4 (немного упрощен):

my (@intersection, %count); 

for my $element (@array1, @array2) { $count{$element}++ } 

for my $element (keys %count) { 
    push @intersection, $element if $count{$element} > 1;   
} 

Более идиоматичен версия:

my (%union, %isect); 
for my $e (@array1, @array2) { $union{$e}++ && $isect{$e}++ } 

my @intersection = keys %isect; 

Оба метода предполагают, что каждый элемент является уникальным в данном массиве.