搜索特定單詞的字符串數組

Question

首先，我根本不瞭解Perl，因此需要相當快速的回答。我有運行存儲陣列中的一個命令的結果：

my @result = `$command`; 

我需要做的是搜索數組，看是否有元素包含單詞「合併」或單詞「改變」是什麼（對大小寫不敏感）。

有人可以提醒嗎？

Answer 1

這裏作業的工具是grep - 一個允許您根據列表指定過濾器的函數。您可以像使用Unix grep一樣使用它，但它也允許進行更復雜的測試（例如運行代碼）。

你的情況：

my @matches = grep { /merge|changed/i } @result; 

if (@matches) { 
    print "One or more lines matched\n"; 
} 

Answer 2

您可以用正則表達式做到這一點。在這個例子中，如果匹配線「合併」或「改變」（當然不敏感的）的線被印刷：

#!/usr/bin/perl 
use strict; 
use warnings; 

my @result = `command`; 

foreach my $line (@result){ 
    if ($line =~ /merge|changed/i){ 
     print $line; 
    } 
}