如何處理文本？？？

rubyish

回复 20# sunzhiguolu

this is a small gift , i hope you like it

perl >= v5.20

1. #!/usr/bin/perl
   
2. 
   
3. use 5.020;  # perl >= v5.20
   
4. 
   
5. my %X = qw[ 1 11 2 22 3 33 4 44 5 55 6 66 ];
   
6. my @X = 'A' .. 'K';
   
7. $X{ 1, 2, 3, 4 } = 1234;
   
8. 
   
9. my $a   = %X{ 1, 2, 3, 4 };
   
10. my %b   = %X{ 1, 2, 3, 4 };
    
11. my @c   = %X{ 1, 2, 3, 4 };
    
12. my $d   = $X{ 1, 2, 3, 4 };
    
13. my @e   = $X{ 1, 2, 3, 4 };
    
14. my %f   = $X{ 1, 2, 3, 4 };
    
15. my @g   = @X{ 1, 2, 3, 4 };
    
16. my $h   = @X{ 1, 2, 3, 4 };
    
17. my %i   = @X{ 1, 2, 3, 4 };
    
18. my $j   = @X[ 1, 2, 3, 4 ];
    
19. my %k   = @X[ 1, 2, 3, 4 ];
    
20. my @l   = @X[ 1, 2, 3, 4 ];
    
21. my @m   = %X[ 1, 2, 3, 4 ];
    
22. my $n   = %X[ 1, 2, 3, 4 ];
    
23. my %o   = %X[ 1, 2, 3, 4 ];
    
24. my ($p) = @X[ 1, 2, 3, 4 ];
    
25. my ($q) = %X[ 1, 2, 3, 4 ];
    
26. my ($r) = %X{ 1, 2, 3, 4 };
    
27. my ($s) = @X{ 1, 2, 3, 4 };
    
28. my ($t) = $X{ 1, 2, 3, 4 };
    

复制代码

sunzhiguolu

回复 21# rubyish
谢谢大神的大礼包,

   

sunzhiguolu

再来一波:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($Pos, @aPos, $offset, %hPos, @aData);
   
6. 
   
7. while (<>){
   
8.     my ($sn, $pos, $val) = split;
   
9.     !$hPos{$pos}++ ? do {$Pos ||= $pos; $offset = 0; push (@aPos, $pos)} : $offset++;
   
10.     $aData[$offset]{'head'} = $sn if ($Pos eq $pos);
    
11.     $aData[$offset]{$pos} = $val;
    
12. }
    
13. 
    
14. print join ("\t", "", @aPos), "\n";
    
15. print "@{$_}{'head',@aPos}\n" for @aData;
    

复制代码

DYS389I DYS389II        DYS390  DYS456
2698 12 27 25 15
2698 12 27 25 15
2720 12 28 24 14
2720 12   14
2736 12 29 22 15
2736 12

sunzhiguolu

完善一下代码:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($Pos, @aPos, $offset, %hPos, @aData);
   
6. 
   
7. while (<>){
   
8.     my ($sn, $pos, $val) = split;
   
9.     !$hPos{$pos}++ ? do {$Pos ||= $pos; $offset = 0; push (@aPos, $pos)} : $offset++;
   
10.     $aData[$offset]{'head'} = $sn if ($Pos eq $pos);
    
11.     $aData[$offset]{$pos} = $val;
    
12. }
    
13. 
    
14. print join ("\t", "", @aPos), "\n";
    
15. for my $item (@aData){
    
16.     print join (" ", $item->{'head'}, map {exists $item->{$_} ? $item->{$_} : ''} @aPos), "\n";
    
17. }
    

复制代码