perl匹配字符串后读取后面的文件

yilongyansha

我有一个文件，格式如下：

.......................
2015-7-6 15:28:15  CHI75156491GJBN13231000521
2015-7-6 15:30:06  BS7546152075123456789A
2015-7-6 15:30:08  CAB7537152075546115654526
.......................
2015-7-6 15:30:16  CAB75461520753659K784421
.......................
2015-7-6 15:31:20  BS7538152075123456789B4
.......................
2015-7-6 15:31:31  CS7538152075354253442B8752
.......................

符号"........"是代表中间有很多类似的行

我想实现打印出包含字符串"75(\d{6})75123456789"的行和包含$1的行并保存到result文件中，上面部分内容的结果为：
2015-7-6 15:30:06  BS7546152075123456789A
2015-7-6 15:30:16  CAB75461520753659K784421
2015-7-6 15:31:20  BS7538152075123456789B4
2015-7-6 15:31:31  CS7538152075354253442B8752

程序如下：
use strict;
open(MYFILE,"E:/log1.txt") or die("Can't open log1.txt");
open(OUTFILE,">E:/result.txt") or die("Can't open result.txt");
# $/ = undef;
my @b = <MYFILE>;
my $count1 = 0;
my $count2 = 0;
my ($b, $c);
foreach $b (@b){
   if($b =~ /75(\d{6})75123456789/){
       $a = $1;
       $count1++;
       foreach $c (@b){
           if($c =~ /75($a)75/){
               $count2++;
               print OUTFILE "$a\n";
               print OUTFILE "$b\n";
               print OUTFILE "$c\n";
           }
       }
    }
}
print "$count1\n";
print "$count2\n";
close MYFILE;
close OUTFILE;

但是，我发现这样我第二次读取文件也是读取了整个文件，而不是读取第一次匹配之后的行，因为文件中第一次匹配的行前面的行也可能包含有$1，这就把前面的行也打印出来了，我现在只想打印第一次匹配之后包含 $1 的行，这该如何实现呢？

jason680

回复 1# yilongyansha

how about this ...

$ perl get_75.pl FILE
2015-7-6 15:30:06  BS7546152075123456789A
2015-7-6 15:30:16  CAB75461520753659K784421
2015-7-6 15:31:20  BS7538152075123456789B4
2015-7-6 15:31:31  CS7538152075354253442B8752

$ cat get_75.pl
use strict;
use warnings;

my $sKey = "";
while(<>){
  if(m/(75\d{6}75)123456789/){
    $sKey = $1;
  }
  next if($sKey eq "");
  if(m/$sKey/){
    print "$_";
  }
}

   

yilongyansha

回复 2# jason680


next if($sKey eq "");   #这一句是什么意思啊，跳出这一次的循环吗？

   

yilongyansha

回复 2# jason680

不行啊，没有输出


   

xiaoxingan99

要下班了，来不及弄全部
if($b =~ /75(\d{6})75123456789/){
中间加上这句
       push @c, $b; #如果匹配上了，把这行放到一个新的数组c里面

后面的循环 foreach $c (@b) 就把@b换成@c试试

另外，你上个帖子里面我给你这句话了，建议你先自己试试，否则很难提高的

yilongyansha

回复 5# xiaoxingan99

嗯

foreach $c (@c)； #这一句是在$b =~ /75(\d{6})75123456789/ 的行里匹配吧，$c =~ /75($a)75/匹配出来的都是$b，其他含有$1的行好像不能匹配


   

xiaoxingan99

回复 6# yilongyansha


    不知道是不是理解能力变差了，好像听不懂你的问题

substr函数

回复 6# yilongyansha
建议你先自己试试
我给你这code
确保 $1 match 它是 1 or 2

1: /^\S+\s+\S+\s+[A-Z]+\d+75${SIX_DIGITS}75/
2: /^\S+\s+\S+\s+[A-Z]+75${SIX_DIGITS}75/



   

815138698

回复 2# jason680
如果参数的数据顺序打乱了就不行了哇~~