統(tǒng)計特定行長度

tingshuibanxia

求助，假如

文本A:
>AHDJFDFHJD
ADSDJ
>WQEW2323
DSD
>121
hth
...

想統(tǒng)計加粗部分的字符數(shù)，并且輸出：

字符數(shù)   個數(shù)
5           1
3           2
...

stanley_tam

1. #!perl
   
2. use strict;
   
3. 
   
4. my $file = 'A.txt';
   
5. my %times = ();
   
6. 
   
7. open my $fh, '<', $file;
   
8. while (defined(my $line = readline $fh)) {
   
9.     chomp $line;
   
10.     next if $line =~ m{^>};
    
11.     ++$times{length $line};
    
12. }
    
13. close $fh;
    
14. 
    
15. 
    
16. for my $char_num (sort keys %times){
    
17.     print "$char_num\t$times{$char_num}$/";
    
18. }
    
19. 
    
20. __END__

復(fù)制代碼

Okelani

1. #!/usr/bin/perl
   
2. 
   
3. use 5.018;
   
4. 
   
5. my %count;
   
6. 
   
7. while (<DATA>) {
   
8.     my $len = length(<DATA>) - 1;
   
9.     $count{$len}++;
   
10. }
    
11. 
    
12. say "字符數(shù)\t個數(shù)";
    
13. 
    
14. for my $k ( sort { $b <=> $a } keys %count ) {
    
15.     say "$k\t$count{$k}";
    
16. }
    
17. __DATA__
    
18. >AHDJFDFHJD
    
19. ADSDJ
    
20. >WQEW2323
    
21. DSD
    
22. >121
    
23. hth
    

復(fù)制代碼

sunzhiguolu

1. perl -nle '{if(!/\A>/){$h{length()}++}}END{print "$_\t$h{$_}" for keys %h}' a

復(fù)制代碼