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，请大家多多指教，谢谢！

rubyish

1. $/ = undef;

复制代码

==>

1. #  $/ = undef;

复制代码

yilongyansha

请问应该如何实现打印出所有包含了$1（如包含461520和381520）的行？回复 2# rubyish


   

yilongyansha

回复 2# rubyish

我写了一个程序，想实现打印所有包含$1的行，可是运行之后为空，什么都没有显示

use strict;
open(MYFILE,"E:/log1.txt") or die("Can't open log1.txt");
# local $/;
while(my $values1 = <MYFILE>){
    if($values1 =~ /75(\d{6})75910633343435/){
        if(my $values2 =~ /75($1)75/){
            print "$values2\n";
        }
    }     
}
close MYFILE;

   

xiaoxingan99

回复 3# yilongyansha


     if(($a)=$values1 =~ /75(\d{6})75910633343435/){
        print $a."\n";

好像是print $1有问题了，你换我上面这个方式，我试过了，可以的

xiaoxingan99

回复 4# yilongyansha


    你这个$value2根本没赋值啊，匹配不上，当然没有输出了

yilongyansha

回复 6# xiaoxingan99

第一个问题解决了，谢谢！

第二个问题，$values2好像是没赋值，然后我改了一个程序：

use strict;
open(MYFILE,"E:/log1.txt") or die("Can't open log1.txt");
# local $/;
while(my $values1 = <MYFILE>){
    if($values1 =~ /75(\d{6})75910633343435/){
        while(my $values2 = <MYFILE>){
            if($values2 =~ /75($1)75/){
                print "$values2\n";
            }
        }
    }     
}
close MYFILE;

改程序之后结果也不对，只输出了
2015-7-6 15:30:16  CB754615207511043333333321

我想得到的输出是：
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
因为$1=381520也符合$values1的匹配

xiaoxingan99

回复 7# yilongyansha


    我没有试验哦，但是你尽量不要把$1用在后续的匹配里面，把它赋值出来
另外，第一次使用了<MYFILE>之后，再次使用<MYFILE>，应该是读出第二行，不是重新读一遍
如果你非要读两遍，再次赋值一个文件句柄MYFILE1

yilongyansha

回复 8# xiaoxingan99

我把$1赋值给$a再匹配，也重新赋值了一个文件句柄MYFILE1，但后面符合匹配的还是没有输出，比如$1=381520的就没有显示，只输出了

2015-7-6 15:30:06  BS7546152075910633343435A
2015-7-6 15:30:16  CB754615207511043333333321

   

xiaoxingan99

回复 9# yilongyansha


    整个程序贴出来看看