小编Pac*_*man的帖子

我觉得我在这里错过了一些非常简单的东西,但这是我第一次需要这样做而且找不到一个例子.

我有一个巨大的foreach循环,它遍历输出日志并根据匹配的正则表达式提取各种信息.我的主要问题是一些较大类型的输出有一个页眉和页脚,*** Begin bangle tracking log***然后是几行乱码,然后是a ***End bangle tracking log***.

是否有一种方法,从foreach循环内部,有一个内部循环,存储所有行,直到找到页脚？

foreach my $line( @parseme )
{
    if( $line =~ m/***Begin bangle tracking log***/ )
    {
        #Help! Push all lines into an array until bangle tracking footer is found.
    }
    if( $line =~ m/Other stuff I am tracking/ )
    {
        #Do other things
    }
}