perl循环多行匹配问题请教

yilongyansha

我有一个包含几万行的log1文件，部分内容如下：

.......................
2015-7-6 15:30:06  BS7546152075910633343435A
2015-7-6 15:30:08  CAB753715207511043333333326
.......................
2015-7-6 15:30:16  CAB754615207511043333333321
.......................
2015-7-6 15:31:20  BS7538152075910633343435B
.......................
2015-7-6 15:31:31  CS7538152075110433333333B8
.......................

这些内容之间还包括了很多行
如果要打印出包含字符串"75(\d{6})75910633343435"的行和包含$1的行并保存到log2文件中，如这部分内容我要得到的行是：
2015-7-6 15:30:06  BS7546152075910633343435A
2015-7-6 15:30:16  CB754615207511043333333321
2015-7-6 15:31:20  BS7538152075910633343435B
2015-7-6 15:31:31  CS7538152075110433333333B8

用perl脚本怎么实现呢？


我刚开始是想着一步一步来，先实现打印出$1，程序如下：
use strict;
open(MYFILE,"E:/log1.txt") or die("Can't open log1.txt");
$/ = undef;
while(my $values1 = <MYFILE>){
    if($values1 =~ /75(\d{6})75910633343435/){
        print $1;
    }     
}
close MYFILE;

但得到的只有一个值：461520，我本来想得到的结果是
461520
381520

因为还在初学阶段，我是想着一步一步来，先实现打印出$1，再实现包含$1的行，不过研究了很久第一步还没有实现。小妹是初学perl，请大家多多指教，谢谢！

xiaoxingan99

回复 31# yilongyansha


    匹配上的$a push到一个数组里面去，然后foreach这个新数组。

yilongyansha

回复 22# xiaoxingan99

你好，我按照你的程序运行后，发现第二次读取文件也是读取整个文件吧，我现在是想先匹配正则为：75(\d{6})75910633343435 的行，再在这一行后面的文件行中匹配包含 $1 的行，而第一次匹配之前的行就不考虑了，这该如何实现呢？谢谢


   

MMMIX

回复 1# yilongyansha


    假设所有模式是顺序出现的，找到需要的模式就循环直到下一个新模式出现：

1. 
   
2. OUTER:
   
3. while (<>) {
   
4.         if (m/75(\d{6})75910633343435/) {
   
5.                 print;
   
6.                 $last_pat = $1;
   
7.                 while (<>) {
   
8.                         m/$last_pat/ ? print : redo OUTER;
   
9.                 }
   
10.                 last OUTER;
    
11.         } elsif (defined $last_pat and m/$last_pat/) {
    
12.                 print;
    
13.         }
    
14. }
    

复制代码

yilongyansha

回复 22# xiaoxingan99

谢谢。结果存放在文件中这个功能实现了，前面的我再试一下


   

xiaoxingan99

回复 27# yilongyansha


    1. 可以直接用命令行
    perl e:\test2.pl >>c:\log.txt
    2. 用perl的文件句柄
open A, ">>c:/log.txt";

print A $a; #$a是你想要输出的东西

yilongyansha

回复 22# xiaoxingan99

另外，怎样把输出的结果存放在另一个.txt文件中呢，方便我查看结果


   

yilongyansha

回复 22# xiaoxingan99

好，我试一下

只要是符合条件的，不管重不重复都要输出，而且重复的也不用删除


   

substr函数

回复 24# yilongyansha


delete

    next if '.' eq substr $_, 0, 1;

yilongyansha

回复 23# substr函数

我的问题，我没说清楚
中间一连串的........是代表有很多类似的行，不是"."字符，我的文件中没有特殊符号，只有空格和换行符