如何根據數據數組有效地過濾輸入行？

Question

我想將文件讀入臨時變量，根據數組中的項過濾文件。我通過打開一個文件並在讀取文件的while循環中執行此操作，運行另一個循環（非常糟糕的想法IMO）來檢查內容是否與數組匹配，如果是這樣，則該行被丟棄，並且繼續下一個循環線。

它可以工作，但有20,000行輸入時它很糟糕。我正在閱讀10個項目的數組，基本上將它變成200,000行文件。

有沒有辦法處理這個更快？

Answer 1

假設你想，如果你的數組中的任何項目被發現丟棄線，從List::MoreUtils的any功能將立即停止通過數組搜索，因爲它已經找到了匹配。

use List::MoreUtils qw(any); 

while (<>) { 
    my $line = $_; 
    next if any { $line =~ /$_/ } @list; 
    # do your processing 
} 

如果你碰巧知道您的數組中的項目更有可能在你的線條出現，您可以據此進行排序的數組。

你也應該Benchmark你的方法，以確保您的優化的努力是值得的。

Answer 2

將數組項整合爲一個大的正則表達式：例如，如果您的數組是qw{red white green}，請使用/(red|white|green)/。變量$1會告訴你哪一個匹配。如果您需要完全匹配，請確定終點：/^(red|white|green)$/。