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

初學(xué)，互相交流下吧回復(fù) 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

初學(xué)，互相交流下吧回復(fù) 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

復(fù)制代碼

MMMIX

回復(fù) 6# sunzhiguolu


    你這代碼風(fēng)格是越走越歪了。

sunzhiguolu

回復(fù) 7# MMMIX
大神您這是啥意思, 怎么就越走越歪了, Perl 代碼風(fēng)格應(yīng)該是啥樣的? 不懂, 還請指點(diǎn)...

   

jason680

回復(fù) 8# sunzhiguolu

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

試想一下（不看文本）...
1.這代碼能看出在干啥？
2.如果出問題（結(jié)果不對），容易解決嗎?? !!

sunzhiguolu

回復(fù) 9# jason680
大神您好, 那我的這種代碼該如何修改 => 容易理解 + 便于維護(hù).
能給個類似的小例子嗎? 非常感謝!