求问perl 一个分割字符串

amysue

我的字符串是如下形式：

PPP adapterr:

   Connection-specific DNS Suffix  . :
   IPv6 Address. . . . . . . . . . . : 2035::1
   Link-local IPv6 Address . . . . . : fe80::1%25
   IPv4 Address. . . . . . . . . . . : 172.16.1.1
   Subnet Mask . . . . . . . . . . . : 255.255.255.255

Ethernet adapter Local Area Connection 2:

   Connection-specific DNS Suffix  . :
   Link-local IPv6 Address . . . . . : fe80::28fd:566a:9fce:27b1%14
   IPv4 Address. . . . . . . . . . . : 13.13.13.1
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . :

Ethernet adapter Local Area Connection:

   IPv4 Address. . . . . . . . . . . : 10.10.10.1
   Subnet Mask . . . . . . . . . . . : 255.255.0.0

Tunnel adapter isatap.{378C8BD2-4DBC-4B71-A632-C3E967087D3B}:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Tunnel adapter isatap.{F1918DC9-09D2-4827-980B-A1A217223E49}:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Tunnel adapter Teredo Tunneling Pseudo-Interface:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Tunnel adapter isatap.{CBBB79EB-3416-43EB-AFF3-7CC11E5F8AEA}:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :


按照每个adapter来分割字符串，得到的一个数组，数组每个元素的值一个是一个adapter的内容。
如数组第0个元素为
PPP adapter:

   Connection-specific DNS Suffix  . :
   IPv6 Address. . . . . . . . . . . : 2035::1
   Link-local IPv6 Address . . . . . : fe80::1%25
   IPv4 Address. . . . . . . . . . . : 172.16.1.1
   Subnet Mask . . . . . . . . . . . : 255.255.255.255

第一个元素为
Ethernet adapter Local Area Connection 2:

   Connection-specific DNS Suffix  . :
   Link-local IPv6 Address . . . . . : fe80::28fd:566a:9fce:27b1%14
   IPv4 Address. . . . . . . . . . . : 13.13.13.1
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . :

我想到的是

1. my @results = split /(?=(?:PPP|Ethernet|Tunnel) adapter)/i, $result;

复制代码

$result 为上面字符串， @results为分割字符串得到的数组。
我想问的是有没有更简洁的写法？可以不用写出(?P|Ethernet|Tunnel)，但用

1. my @results = split /(?= adapter)/i, $result;

复制代码

前面的PPP, Ethernet, Tunnel 就会被截断了。

cinanine

1. my @result = split /^(?=\S)/m, $result;
   

复制代码

amysue

回复 2# cinanine
谢谢，我试了，你的写法的确更简单方便。