Вложенный цикл foreach в perl только цикл один раз

Question

Я написал скрипт perl, который открывает два файла, которые содержат списки. Я хочу найти элементы в первом списке, которые не во втором списке. Скрипт использует две петли foreach. Внешний цикл проходит через каждую строку первого списка, извлекая необходимую информацию об элементе. Внутренний цикл проходит через второй список, извлекает информацию о позиции, а затем сравнивает эту информацию с элементом в первом списке.

Итак, идея состоит в том, что для каждого элемента в первом списке скрипт будет проходить через все элементы во втором списке, ища совпадения. Проблема в том, что внутренний цикл foreach только петли один раз. У меня была такая же проблема в PHP, когда мы перебирали таблицы MySQL во вложенных циклах. Решением было сбросить индекс данных mysql с помощью mysql_data_seek для каждой итерации внешнего цикла. Как я могу сделать это в perl с помощью дескрипторов файлов?

Answer 1

Если ваш внутренний цикл является итератором дескриптора файла, тогда вам нужно будет его сбросить (скажем, путем закрытия и повторного открытия файла) каждый раз, когда вы его достигнете.

foreach my $outer (@outer) { 
    open INNER, '<', $inner_file; # <--- need to add this 
    while (my $inner = <INNER>) { 
     ... 
    } 
    close INNER;     # <--- optional with global scope filehandle 
} 

В качестве альтернативы, если вы можете сэкономить память, вы можете скопировать ссылку на файл вывода на массив за пределами цикла, а затем итерации по массиву.

open INNER, '<', $inner_file; 
my @INNER = <INNER>; 
close INNER; 

foreach my $outer (@outer) { 
    foreach my $inner (@INNER) { 
     ... 
    } 
} 

Answer 2

Следует отметить, что код, как вы описываете это звучит очень неэффективно, О (п ^. м). Вы можете получить эффективность O (n + m), помещая соответствующее содержимое одного файла в хэш, а затем итерацию другого файла только один раз.