小编use*_*417的帖子

我已经成功解析了一个cisco配置文件，并使用以下多行正则表达式抓取了每个标记之间的配置部分（cisco使用了！符号）：

/(search string)/i .. /^!/ 

我的代码如下：

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my (@results, @data) ;

#Test data to simulate a while loop on a file-handle running through a config file.
@data =  (
    "vlan 81" ,
    " name Vlan 81 test1" ,
    "!" ,
    "vlan 82" ,
    " name Vlan 82 test2" ,
    "!" ,
    "vlan 83" ,
    " name Vlan 83 test3" ,
    "!"
);

foreach ( @data ) {
    if ( /vlan/i .. /^!/ ) {
         push …