perl 程序求助

jiangphoenix

test_A835-I-1-A
BlastNum:2000   AlignNum:412    AlignRatio:20.6%
        Cucumis melo             67.71
        Luffa aegyptiaca         8.98
        Citrullus lanatus        3.15
        Cucumis sativus          2.91
        Cyprinus carpio          2.42
        Momordica charantia      2.42
        Luffa cylindrica         2.18
        Lagenaria siceraria      1.45
        Other                    8.67


test_A835-I-10-A
BlastNum:2000   AlignNum:458    AlignRatio:22.9%
        Cucumis melo            62.88
        Luffa aegyptiaca        6.33
        Citrullus lanatus       5.24
        Cyprinus carpio         3.93
        Cucumis sativus         3.49
        Luffa cylindrica        2.4
        Cucumis hystrix         1.52
        Cucurbita maxima        1.52
        Momordica charantia     1.31
        Tectona grandis         1.09
        Other                   10.05


test_A835-I-100-A
BlastNum:2000   AlignNum:396    AlignRatio:19.8%
        Cucumis melo             62.62
        Luffa aegyptiaca         9.84
        Citrullus lanatus        5.8
        Momordica charantia      3.78
        Cyprinus carpio          2.77
        Lagenaria siceraria      2.02
        Luffa cylindrica         1.76
        Cucurbita maxima         1.51
        Cucumis sativus          1.01
        Other                    8.75


test_A835-I-101-A
BlastNum:2000   AlignNum:505    AlignRatio:25.25%
        Cucumis melo          60.19
        Luffa aegyptiaca      6.33
        Lagenaria siceraria   4.55
        Citrullus lanatus     4.55
        Cyprinus carpio       3.94


这个是原文件，我想将AlignRatio < 20的拿出来，也就是这部分：

test_A835-I-100-A
BlastNum:2000   AlignNum:396    AlignRatio:19.8%
        Cucumis melo             62.62
        Luffa aegyptiaca         9.84
        Citrullus lanatus        5.8
        Momordica charantia      3.78
        Cyprinus carpio          2.77
        Lagenaria siceraria      2.02
        Luffa cylindrica         1.76
        Cucurbita maxima         1.51
        Cucumis sativus          1.01
        Other                    8.75

这该怎么写啊，新手在线求助！

kevinyan1984

#!/usr/bin/perl -w

use strict;

my @test;
while(<DATA> {
        $/ = undef;  
        if($_=~/(test.*Other.*)(test.*Other.*)(test.*Other.*)(test.*)/ims) {
                push @test,$1,$2,$3,$4;
        }
}

foreach(@test){
        if(/AlignRatio\d+\.\d+)%/) {
                print $_ if ($1<20);
        }
}

__DATA__


test_A835-I-1-A
BlastNum:2000   AlignNum:412    AlignRatio:20.6%
        Cucumis melo             67.71
        Luffa aegyptiaca         8.98
        Citrullus lanatus        3.15
        Cucumis sativus          2.91
        Cyprinus carpio          2.42
        Momordica charantia      2.42
        Luffa cylindrica         2.18
        Lagenaria siceraria      1.45
        Other                    8.67


test_A835-I-10-A
BlastNum:2000   AlignNum:458    AlignRatio:22.9%
        Cucumis melo            62.88
        Luffa aegyptiaca        6.33
        Citrullus lanatus       5.24
        Cyprinus carpio         3.93
        Cucumis sativus         3.49
        Luffa cylindrica        2.4
        Cucumis hystrix         1.52
        Cucurbita maxima        1.52
        Momordica charantia     1.31
        Tectona grandis         1.09
        Other                   10.05


test_A835-I-100-A
BlastNum:2000   AlignNum:396    AlignRatio:19.8%
        Cucumis melo             62.62
        Luffa aegyptiaca         9.84
        Citrullus lanatus        5.8
        Momordica charantia      3.78
        Cyprinus carpio          2.77
        Lagenaria siceraria      2.02
        Luffa cylindrica         1.76
        Cucurbita maxima         1.51
        Cucumis sativus          1.01
        Other                    8.75

初学，互相交流下吧回复 1# jiangphoenix


   

kevinyan1984

#!/usr/bin/perl -w

use strict;

my @test;
while(<DATA> {
        $/ = undef;  
        if($_=~/(test.*Other.*)(test.*Other.*)(test.*Other.*)(test.*)/ims) {
                push @test,$1,$2,$3,$4;
        }
}

foreach(@test){
        if(/AlignRatio\d+\.\d+)%/) {
                print $_ if ($1<20);
        }
}

__DATA__


test_A835-I-1-A
BlastNum:2000   AlignNum:412    AlignRatio:20.6%
        Cucumis melo             67.71
        Luffa aegyptiaca         8.98
        Citrullus lanatus        3.15
        Cucumis sativus          2.91
        Cyprinus carpio          2.42
        Momordica charantia      2.42
        Luffa cylindrica         2.18
        Lagenaria siceraria      1.45
        Other                    8.67


test_A835-I-10-A
BlastNum:2000   AlignNum:458    AlignRatio:22.9%
        Cucumis melo            62.88
        Luffa aegyptiaca        6.33
        Citrullus lanatus       5.24
        Cyprinus carpio         3.93
        Cucumis sativus         3.49
        Luffa cylindrica        2.4
        Cucumis hystrix         1.52
        Cucurbita maxima        1.52
        Momordica charantia     1.31
        Tectona grandis         1.09
        Other                   10.05


test_A835-I-100-A
BlastNum:2000   AlignNum:396    AlignRatio:19.8%
        Cucumis melo             62.62
        Luffa aegyptiaca         9.84
        Citrullus lanatus        5.8
        Momordica charantia      3.78
        Cyprinus carpio          2.77
        Lagenaria siceraria      2.02
        Luffa cylindrica         1.76
        Cucurbita maxima         1.51
        Cucumis sativus          1.01
        Other                    8.75

初学，互相交流下吧回复 1# jiangphoenix


   

RE_HASH

cat aa|perl -e 'while (<> { if  (/test_/ .. /Other/) { $OUT .= $_ ; $Ratio = $1 if ( /AlignRatio[\d\.]+)/);} ;  if (/Other/) { print $OUT if ($Ratio < 20); $OUT = ""; }}'

jason680

What You Think Is What You Code(WYTIWYC)

>> .. 将AlignRatio < 20的拿出来，也就是这部分：

$ perl -lane 'BEGIN{$/=/\n\n+/}{if(m/AlignRatio:([\d.]+)/){print if($1<20)}}' FILE
test_A835-I-100-A
BlastNum:2000   AlignNum:396    AlignRatio:19.8%
        Cucumis melo             62.62
        Luffa aegyptiaca         9.84
        Citrullus lanatus        5.8
        Momordica charantia      3.78
        Cyprinus carpio          2.77
        Lagenaria siceraria      2.02
        Luffa cylindrica         1.76
        Cucurbita maxima         1.51
        Cucumis sativus          1.01
        Other                    8.75

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $/ = '';
   
6. print grep {(split)[3] =~ m/(\d+)/ and $1 < 20} <DATA>;
   
7. 
   
8. __DATA__
   
9. test_A835-I-1-A
   
10. BlastNum:2000   AlignNum:412    AlignRatio:20.6%
    
11.         Cucumis melo             67.71
    
12.         Luffa aegyptiaca         8.98
    
13.         Citrullus lanatus        3.15
    
14.         Cucumis sativus          2.91
    
15.         Cyprinus carpio          2.42
    
16.         Momordica charantia      2.42
    
17.         Luffa cylindrica         2.18
    
18.         Lagenaria siceraria      1.45
    
19.         Other                    8.67
    
20. 
    
21. 
    
22. test_A835-I-10-A
    
23. BlastNum:2000   AlignNum:458    AlignRatio:22.9%
    
24.         Cucumis melo            62.88
    
25.         Luffa aegyptiaca        6.33
    
26.         Citrullus lanatus       5.24
    
27.         Cyprinus carpio         3.93
    
28.         Cucumis sativus         3.49
    
29.         Luffa cylindrica        2.4
    
30.         Cucumis hystrix         1.52
    
31.         Cucurbita maxima        1.52
    
32.         Momordica charantia     1.31
    
33.         Tectona grandis         1.09
    
34.         Other                   10.05
    
35. 
    
36. 
    
37. test_A835-I-100-A
    
38. BlastNum:2000   AlignNum:396    AlignRatio:19.8%
    
39.         Cucumis melo             62.62
    
40.         Luffa aegyptiaca         9.84
    
41.         Citrullus lanatus        5.8
    
42.         Momordica charantia      3.78
    
43.         Cyprinus carpio          2.77
    
44.         Lagenaria siceraria      2.02
    
45.         Luffa cylindrica         1.76
    
46.         Cucurbita maxima         1.51
    
47.         Cucumis sativus          1.01
    
48.         Other                    8.75
    
49. 
    
50. 
    
51. test_A835-I-101-A
    
52. BlastNum:2000   AlignNum:505    AlignRatio:25.25%
    
53.         Cucumis melo          60.19
    
54.         Luffa aegyptiaca      6.33
    
55.         Lagenaria siceraria   4.55
    
56.         Citrullus lanatus     4.55
    
57.         Cyprinus carpio       3.94

复制代码

MMMIX

回复 6# sunzhiguolu


    你这代码风格是越走越歪了。

sunzhiguolu

回复 7# MMMIX
大神您这是啥意思, 怎么就越走越歪了, Perl 代码风格应该是啥样的? 不懂, 还请指点...

   

jason680

回复 8# sunzhiguolu

local $/ = '';
print grep {(split)[3] =~ m/(\d+)/ and $1 < 20} <DATA>;
   

试想一下（不看文本）...
1.这代码能看出在干啥？
2.如果出问题（结果不对），容易解决吗?? !!

sunzhiguolu

回复 9# jason680
大神您好, 那我的这种代码该如何修改 => 容易理解 + 便于维护.
能给个类似的小例子吗? 非常感谢!