perl - 搜索多行字符串以匹配任何字符串列表

Question

我有一个错误标识符列表。

对于此bug列表中的每个bugid，我运行一个外部命令以将错误的历史记录作为多行字符串：

$buginfo = `dumpbug $bugid`;

$buginfo看起来像这样（大大简化）：

04/04/2014     dog     created
04/04/2014     cat     manager
04/04/2014     moose   assigner
04/04/2014     moose   engineer
04/05/2014     moose   resolved
04/06/2014     rabbit  verified

现在我想看看（fox，aardvark，emu，rabbit）是否有任何关于这个bug的事情。

我想停止在列表中任何用户的第一场比赛中搜索$bugid。

我将从我的bug列表中的每个bug中搜索相同用户的buginfo。

我也受限于perl 5.8的功能

Answer 1

print "$1 was involved in bug $bugid.\n" if $buginfo =~ /\b(fox|aardvark|emu|rabbit)\b/;