perl - 문자열 목록 중 하나와 일치하는 여러 줄 문자열을 검색합니다.

Question

버그 식별자 목록이 있습니다.

:

이

$buginfo = `dumpbug $bugid`; 

$buginfo이 같은 (매우 간단)을 보이는이 buglist의 각 버그를 들어

, 나는 여러 줄 문자열로 버그의 역사를 얻기 위해 외부 명령을 실행

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) 중 누구도이 버그와 관련이 있는지 알고 싶습니다.

내 목록에있는 모든 사용자의 첫 번째 일치에서 $bugid을 (를) 통해 검색하는 것을 중지하고 싶습니다.

동일한 사용자의 버그 목록에있는 각각의 버그 ID에서 buginfo를 검색 할 것입니다. `,`@buginfo = ... :

나는 또한 당신이 배열로 여러 줄 문자열의 결과를 얻을 수 없습니다 펄 5.8

Answer 1

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