Perl 정규식 복수 멀티 라인 그룹과 일치합니다.

Question

텍스트 묶음을 가지고 있고 패턴 그룹과 일치 시키려고합니다. 사용하고있는 정규식은 패턴과 일치 할 수 있지만 문제는 두 번째 그룹 만 일치한다는 것입니다. 첫 번째 그룹.

open(FILE, "match.txt") || die("Could not open file "); 
my $text = do { local $/; <FILE> }; 

while($text =~ m/FibreChannel SCSI Interface.*World Wide Port Number\.*(.*?)\n.*Driver\.+(.*?)\n.*Vendor Name\.+(.*?)\n/sgmp) 
{ 
    print "$1\n$2\n$3\n"; 
} 

---

인쇄

0x1b201
lpfc_740
테스트 공사

위의 코드가 작동을하지만이 두 번째 그룹이 아닌 첫 번째 그룹에서 텍스트 만 표시

. 내가 여기서 무엇을 놓치고 있니? 이 작업을 수행하는 더 좋은 방법이 있습니까?

내가 그것을

0x1a101
lpfc_740
테스트 공사 인쇄 것이라고 생각
0x1b201
lpfc_740
테스트 공사

--------------- --------- match.txt에는 다음이 포함됩니다.

\==+FibreChannel SCSI Interface : 
     |----Link State.........................................Down 
     |----World Wide Port Number.............................0x1a101 
     \==+SCSI Interface : 
      |----Driver..........................................lpfc_740 
      |----Queue Depth.....................................2038 
      \==+PCI Device : 
       |----Bus..........................................0x06 
       |----Vendor Name..................................Test Corporation 
       |----Slot Description............................. 

\==+FibreChannel SCSI Interface : 
     |----Link State.........................................Down 
     |----World Wide Port Number.............................0x1b201 
     \==+SCSI Interface : 
      |----Driver..........................................lpfc_740 
      |----Queue Depth.....................................2038 
      \==+PCI Device : 
       |----Bus..........................................0x0a 
       |----Vendor Name..................................Test Corporation 
       |----Slot Description.............................   

Answer 1

문제는 첫 번째 .*이 일치를 방지하지 않고 탐욕스럽게 일치한다는 것입니다. 그래서, 두 번째까지 World Wide Port Number까지 모든 것을 삼켜 버립니다. 이미 다른 패턴을 사용하고있는 것처럼이 코드를 .*?으로 변경해야합니다. (그리고, 유사 .*의 다른 인스턴스.)

Answer 2

여기 내가 변경

$text =~ m/FibreChannel SCSI Interface.*?World Wide Port Number\.*([a-z0-9]+).*?Driver\.+(\w+).*?Vendor Name\.+([a-zA-Z ]+).*?\n/sgmp