perl循环多行匹配问题请教

yilongyansha

回复 19# xiaoxingan99

我是对比了源文件才发现有重复的


   

xiaoxingan99

回复 21# yilongyansha


    @b=<MYFILE1>;
foreach $b (@b){
    if($b =~ /75(\d{6})75910633343435/){

        $a = $1;
print "$a \n"; #这边加一句，看看你$a匹配出来的到底是不是有两行重复的，如果$a就有重复的，结果肯定重复
        foreach $c (@b){
                if($c =~ /75($a)75/){
             print "$c\n";
                }
}
}
}
另外，我说的源文件是你说的3w多行的那个，你搜一下，是否有重复的行，如果有重复的行，肯定要匹配出来的，如果你是说你不想要重复的匹配结果，用hash删除重复的就可以了
hash我不是很懂，你可以看一下，以前好多问题都是用hash删除相同的行

最后，你可以把你的源文件减少到十几行，方便你检查问题原因。

substr函数

回复 15# yilongyansha


是不是

1. #!/usr/bin/perl
   
2. 
   
3. my $MATCH = qr/^\S+\s+\S+\s+\S+75(\d{6})75910633343435/;
   
4. my @SIX_DIGITS;
   
5. my @REDO;
   
6. 
   
7. while (<DATA>) {
   
8.     next if '.' eq substr $_, 0, 1;
   
9.     next if index( $_, 75 ) < 0;
   
10.     if (/$MATCH/) {
    
11.         push @SIX_DIGITS, $1;
    
12.         print;
    
13.     }
    
14.     else {
    
15.         push @REDO, $_;
    
16.     }
    
17. }
    
18. 
    
19. for my $LINE (@REDO) {
    
20.     for my $SIX_DIGITS (@SIX_DIGITS) {
    
21.         if ( $LINE =~ /^\S+\s+\S+\s+\S+75${SIX_DIGITS}75/ ) {
    
22.             print $LINE;
    
23.             last;
    
24.         }
    
25.     }
    
26. }
    
27. 
    
28. __DATA__
    
29. 2015-7-6 15:30:06  BS7546152075910633343435A
    
30. 2015-7-6 15:30:08  CAB753715207511043333333326
    
31. .......................
    
32. 2015-7-6 15:30:16  CAB754615207511043333333321
    
33. .......................
    
34. 2015-7-6 15:31:20  BS7538152075910633343435B
    
35. .......................
    
36. 2015-7-6 15:31:31  CS7538152075110433333333B8
    
37. .......................
    

复制代码

yilongyansha

回复 23# substr函数

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


   

substr函数

回复 24# yilongyansha


delete

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

yilongyansha

回复 22# xiaoxingan99

好，我试一下

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


   

yilongyansha

回复 22# xiaoxingan99

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


   

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

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


   

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. }
    

复制代码