複数の複数行のグループに一致する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