字段匹配處理問題

qlm027

各位大蝦，請(qǐng)教個(gè)問題
我現(xiàn)在要用perl處理一批文件a.txt  b.txt……
文件的內(nèi)容大致如下
192.168.11.11|ct@mycdma.cn|www.baidu.com|21

……
解釋下字段的內(nèi)容：
第一個(gè)字段為IP，第二個(gè)字段user@realm，第三個(gè)字段string（非空），第四個(gè)字段為固定值（21、31、41）

假如第一個(gè)字段不匹配，把整行輸出到另外一個(gè)文件，命名a，并且在該行后面注明“$1”
第二個(gè)字段不匹配，同樣輸出整行，注明“$2”
同一行多個(gè)字段不匹配，只輸出一行，后面?zhèn)渥⒉黄ヅ涞淖侄?br />
例如a.txt
192.168.11.11|ct@mycdma.cn|www.baidu.com|21
192.168.11.|ct@mycdma.cn||21
輸出a
192.168.11.|ct@mycdma.cn||21 $1$3

mcshell

1. use strict;
   
2. use warnings;
   
3. while (<DATA>) {
   
4.     chomp;
   
5.     my $h;
   
6. /^(?:((?:\d{1,3}\.){3}\d{1,3})|[^|]*)\|(?:([\w.]+\@[\w.]+)|[^|]*)\|(?:(\S+)|[^|]*)\|(?:(\d+)|[^|]*)/;
   
7.     push @{ $h->{$_} }, '$1' unless $1;
   
8.     push @{ $h->{$_} }, '$2' unless $2;
   
9.     push @{ $h->{$_} }, '$3' unless $3;
   
10.     push @{ $h->{$_} }, '$4' unless $4;
    
11.     print "$_ ",join "",@{$h->{$_}},"\n" for keys %$h;
    
12. }
    
13. __DATA__
    
14. 192.168.11.11|ct@mycdma.cn|www.baidu.com|21
    
15. 192.168.11.|ct@mycdma.cn|dddd|21
    
16. 192.168.11.|ct@||22
    
17. 192.168.11.12|ct@||22
    
18. 
    
19. 
    

復(fù)制代碼

output
192.168.11.|ct@mycdma.cn|dddd|21 $1
192.168.11.|ct@||22 $1$2$3
192.168.11.12|ct@||22 $2$3

qq27898

回復(fù) 2# mcshell


    你的那個(gè)圖真有立體感。。。。

pitonas

{:2_172:}湊個(gè)熱鬧

1. #!/usr/bin/perl
   
2. 
   
3. my @p = (
   
4.     qr/^(?:\d{1,3}\.){3}\d{1,3}/,
   
5.     qr/^\w[\w\.]+\@\w+\.[a-z]+/,
   
6.     qr/^(?:[a-z]+\.)?\w+\.[a-z]+/,
   
7.     qr/^[234]1/
   
8. );
   
9. 
   
10. while (<DATA>) {
    
11.     chomp;
    
12.     my @a = split /\|/, $_;
    
13.     my @error = map { $a[$_] =~ $p[$_] ? () : $_ + 1 } 0 .. 3;
    
14.     next unless @error;
    
15.     $_ .= '  . join( ', @error );
    
16.     print "$_\n";
    
17. }
    
18. 
    
19. __DATA__
    
20. 192.168.11.11|ct@mycdma.cn|www.baidu.com|21
    
21. 192.168.11.|ct@mycdma.cn|dddd|21
    
22. 192.168.11.|ct@||22
    
23. 192.168.11.12|ct@||22
    

復(fù)制代碼