新手请教字符位置

最爱在深秋

现有一文件，格式如下：
>C1
0 0 0 0 0 1 2 3 4 5 6 7 0 0 0 0 0 0
>C2
1 2 3 4 5 6 7 8 9 0 9 8 7
>C3
1 2 3 4 5 6 7
>C4
0 0 0 0 0 0 0 0 0 0 0


目的找出数值不是0的区域，并计算改区域的平均值，即得到如下结果文件：
C1  6-12   4
C2  1-9  5
C2  11-13  8
C3  1-7  4
C4  0 0


请各位大神指教。

sunzhiguolu

回复 1# 最爱在深秋
试下: 测试环境 Windows

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub _average{
   
7.     my (@a_vals, $sum) = (split /\s*/, pop);
   
8.     foreach (@a_vals){
   
9.         $sum += $_;
   
10.     }
    
11.     $sum / @a_vals;
    
12. }
    
13. 
    
14. my ($format, $start_index, $end_index, $id, @a_vals) = ("%s %6s %s\n");
    
15. while (<>){
    
16.     if (m/\A>(\S+)/){
    
17.         $id = $1;
    
18.         next;
    
19.     }
    
20.     s/\s+//g;
    
21.     if ((@a_vals = m{[1-9]+}g) > 0){
    
22.         for (my $i = 0; $i < scalar @a_vals; $i++){
    
23.             $start_index = index ($_, $a_vals[$i]) + 1;
    
24.             $end_index = length ($a_vals[$i]) + $start_index - 1;
    
25.             printf $format, $id, join ('-', $start_index, $end_index), _average ($a_vals[$i]);
    
26.         }
    
27.     }else{
    
28.         printf $format, $id, join (' ', 0, 0), '';
    
29.     }
    
30. }
    

复制代码

jason680

回复 1# 最爱在深秋

$ perl non-zero.pl
C1 6-12 4
C2 1-9 5
C2 11-13 8
C3 1-7 4
C4 0 0

$ cat non-zero.pl
use strict;
use warnings;

my $sID;
my $sPrint = "no";
while(<DATA>){
  if(m/^>(\S+)/){
    $sID = $1;
    next;
  }
  my @aData = split;
  my($sCnt, $sPos, $sSum, $sStart) = (0, 0, 0, 0);
  $sPrint = "yes";
  foreach(@aData){
    $sPos++;
    if($_ != 0){
      $sCnt++;
      $sSum += $_;
      $sStart = $sPos if($sStart == 0);
      next;
    }
    if($sStart != 0){
      printf("%s %d-%d %d\n",$sID, $sStart, $sPos-1, $sSum/$sCnt);
      $sPrint = "no";
      $sStart = $sCnt = $sSum = 0;
    }
  }
  if($sStart != 0){
    printf("%s %d-%d %d\n",$sID, $sStart, $sPos, $sSum/$sCnt);
    $sPrint = "no"
  }
  if($sPrint eq "yes"){
    print "$sID 0 0\n";
  }
}


__DATA__
>C1
0 0 0 0 0 1 2 3 4 5 6 7 0 0 0 0 0 0
>C2
1 2 3 4 5 6 7 8 9 0 9 8 7
>C3
1 2 3 4 5 6 7
>C4
0 0 0 0 0 0 0 0 0 0 0


   

sunzhiguolu

回复 3# jason680
大神您好, 您的每个标量名称的第一个字符都是小写的 s 表示什么意思呀? 还请您指点, 谢谢您...

   

jason680

回复 4# sunzhiguolu

variable type for myself
s for scalar (ex: $sData)
a for array (ex: @aData)
h for hash (ex: %hData)
r for reference ( $rsData, $raData, $rhData)

scalar: $sData
array: @aData, $aData[0], ...
hash: %hData, $hData{"Jan"}, ...
reference:
    $raData->[0]         
    foreach(@{$raData}){...}
    $rhData->{"Jan"}  
    foreach(keys %{$rhData}){...}


something wrong:
  $sData[0], $sData{"Feb"}
  $aData, $aData{"Feb"}
  $hData, $hData[0]
  $raData[0], $rhData{"Jan"}

sunzhiguolu

回复 5# jason680
感谢您的指点...

   

最爱在深秋

回复 3# jason680

非常感谢！


   

最爱在深秋

回复 2# sunzhiguolu

谢谢指教！