请教如何提取匹配的前两行？？？

juzi1114

UID: 35177
帖子: 23
积分: 52
在线时间: 10 分钟

11^# juzi1114 发表于 2008-07-07 11:36

恩好的看到了非常感谢我改了下可以了

juzi1114

UID: 35177
帖子: 23
积分: 52
在线时间: 10 分钟

12^# juzi1114 发表于 2008-07-07 11:38

谢谢啦我的方法和这个差不多了呵呵只不过你的后面的换行好像写错了哦，应该是"\n" 吧

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

13^# apile 发表于 2008-07-07 13:27

一次读三行...放进一个array..
每次比对第三行...
看看匹不匹配..如果匹配...就把前两行印出来..
如果不匹配..再读进一行..把第一行从array中拿掉.

这样子应该会比较快..因为没消耗太多内存....

caining062

UID: 30795
帖子: 25
积分: 57
在线时间: 1 小时

14^# caining062 发表于 2008-07-07 14:35

#!/usr/bin/perl
use warnings;
use strict;

my$flag=0;
my$a;
while(<DATA>)

{
if(/^>/)
{
      $flag = 1;
      $a = 0;
}
if($flag )
{
      print $_;
      $a++;
}
if($a == 3)
{
      $flag = 0;
}
}

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

15^# 不死草发表于 2008-07-07 15:09

不用树组，那就直接print嘛！~

juzi1114

UID: 35177
帖子: 23
积分: 52
在线时间: 10 分钟

16^# juzi1114 发表于 2008-07-07 16:12

谢谢啦呵呵

juzi1114

UID: 35177
帖子: 23
积分: 52
在线时间: 10 分钟

17^# juzi1114 发表于 2008-07-07 16:13

谢谢了

nofearbit

UID: 2870
帖子: 157
积分: 361
在线时间: 1 天 9 小时

18^# nofearbit 发表于 2008-07-07 18:00

#!/usr/bin/perl -w
use strict;
my $line_count = 0;
while(<>){
      if(m/^>/){
            $line_count = 0;
            print;
            $line_count++;
      }elsif($line_count < 3){
            print;
            $line_count++;
      }

}

hunkwk

UID: 28891
帖子: 181
积分: 416
在线时间: 1 天 20 小时

19^# hunkwk 发表于 2008-07-11 22:50

@a = $a =~/(>.*?\n.*?\n.*?)\n/g;

LZ试试这个正则表达式如何。
$a里面放你说的那个文件里面的内容，将匹配出来的内容全部放在@a数组里面