perl 多行处理

alexandnpu

文件比较大，不方便直接打开处理。

任务是这样的
ABC： 1234
XXXXXXXX
XXXXXXXX
DEF： 34456


需要找到ABC所在的行，拿到后面的数字，然后找到与ABC这一行最近的DEF这一行，同样拿到后面的数字，组成一个hash


我是perl的新手，希望大家给个指点~~~

lkk2003rty

不方便直接打开处理?不打开咋处理？

珞水的大叔

楼主的意思大概是不方便一次性读入所有数据吧

那就按行读啊，用个标志来决定是检查ABC还是DEF就可以了啊

比如:

1. 
   
2. $flag = 0;
   
3. 
   
4. while (<FH>)
   
5. {
   
6.     if ( $flag == 0 )
   
7.     {
   
8.         if ( $_ =~ /^ABC: (\d+)$/)
   
9.         {
   
10.             ...
    
11.             $flag = 1;
    
12.         }
    
13.     else
    
14.     {
    
15.         if ( $_ =~ /^DEF: (\d+)$/)
    
16.         {
    
17.             ...
    
18.             $flag = 0;
    
19.         }
    
20.     }
    
21. }

复制代码

yinyuemi

回复 1# alexandnpu


perl -lne 'if(/^ABC/../^DEF/ and /^ABC|^DEF/){$_=~s/\D+//g;print}'

akwhole

回复 4# yinyuemi


    请问，/^ABC/../^DEF/ 是什么意思？

zhlong8

回复  yinyuemi


    请问，/^ABC/../^DEF/ 是什么意思？
akwhole 发表于 2011-08-01 21:06

    我推荐你无视 4 楼的答案，这个东西比较难理解也很少用

pengphy

1. use strict;
   
2. 
   
3. my $current = 0;
   
4. 
   
5. my $ABC = [];
   
6. my $DEF = [];
   
7. 
   
8. while (<DATA>)
   
9. {
   
10.     $current++;
    
11.     if ( $_ =~ /^ABC:\s*(\d+)$/)
    
12.     {
    
13.         push @$ABC, [ $current, $1 ];
    
14.     }
    
15.     if ( $_ =~ /^DEF:\s*(\d+)$/)
    
16.     {
    
17.         push @$DEF, [ $current, $1 ];
    
18.     }
    
19. }
    
20. 
    
21. # here we get the ABC and DEF lines infor
    
22. # for each ABC line, there is
    
23. for my $abc_line (@$ABC){
    
24.     my $res = {};
    
25.     my $min_dis = $current;
    
26.     for my $def_line (@$DEF){
    
27.        if(abs($def_line->[0] - $abc_line->[0]) < $min_dis){
    
28.            $min_dis = abs($def_line->[0] - $abc_line->[0]);      
    
29.            $res->{$abc_line->[1]} = $def_line->[1];
    
30.        }
    
31.     }
    
32.     my ($key, $value) = each %$res;
    
33.     print "$key = $value\n";
    
34. }
    
35. 
    
36. 
    
37. __DATA__
    
38. ABC: 1234
    
39. XXXXXXXX
    
40. FJjlfakjdl
    
41. DEF: 1
    
42. XXXXXXXXX
    
43. ABC: 21543215
    
44. XXXXXXXX
    
45. jfalkj
    
46. DEF: 2
    
47. #########

复制代码