如何进行对其呀

sunzhiguolu

在 shell 板块看到一篇帖子, 内容如下:

例如以下  手工做出了每行前3位各列统计数据  标注颜色是要统计每列数据

|dTs8
N6ds85|\4sawd4  1/                     #遇到空格也要统计上
Qds5|\4s
Nds85|\4sawd41/*[]df~9D EF+VF-V_S             #遇到空格也要统计上
|sd
NNUs85|

#统计每列各字符次数 应从多到少排列 有多少位就统计到多少位,但最好能随意设1个限定
统计到多少位数字   统计准确效率也是关键
手工做出了示例 每行 前3位 各列 统计数据  
出来效果
3次 N       3次 d     2次 d    第4列    第5列     第6列 ...  #这样一直下去
2次 |        1次 N     2次 s
1次 Q       1次 6     1次 U
               1次 s     1次 T

从结果来看, 按照每列各个字符出现的次数进行降序排序并且按照字符所在列的方式进行对齐.
像这种情况, 该如何进行处理. 还请大家指点, 谢谢大家...

sunzhiguolu

我的代码如下, 未能进行对齐:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my (@aData, @aStat);
   
6. while (<DATA>){
   
7.     my $pos = 0;
   
8.     for (/./g){
   
9.         my $k = /\h/ ? "WS" : $_; #WS => WhiteSpace
   
10.         $aData[$pos++]{$k}++;
    
11.     }
    
12. }
    
13. 
    
14. foreach my $rh (@aData){
    
15.     my $pos = 0;
    
16.     foreach my $k (sort {$rh->{$b} <=> $rh->{$a}} keys %{$rh}){
    
17.         #push (@{$aStat[$pos++]}, "$k=>$rh->{$k}");
    
18.     }
    
19. }
    
20. 
    
21. #print join ("\t", @$_), "\n" for @aStat;
    
22. 
    
23. __DATA__
    
24. |dTs8
    
25. N6ds85|\4sawd4  1/
    
26. Qds5|\4s
    
27. Nds85|\4sawd41/*[]df~9D EF+VF-V_S
    
28. |sd
    
29. NNUs85|

复制代码

MMMIX

回复 1# sunzhiguolu

没听过 Perl 的 format? 那看看 perlform 吧

sunzhiguolu

回复 3# MMMIX
大神, 文件的内容是变化的. perlform 能否适应变化?
请大神举个简单的例子, 谢谢...

sunzhiguolu

像这种情况， 通过编程的方式能否解决. 必须能够适应变化, 因为文件的内容不是固定的. 谢谢大家

jason680

回复 5# sunzhiguolu

$ perldoc -f sprintf
    sprintf FORMAT, LIST
            Returns a string formatted by the usual "printf" conventions of
            the C library function "sprintf". See below for more details and
            see sprintf(3) or printf(3) on your system for an explanation of
            the general principles.
     
            ...  

sunzhiguolu

回复 6# jason680
大神, 可能我没有将问题描述清楚. 我举个例子:
如下面文本: (我将每列的字符用不同的背景色进行标识)

STTSP
SSTT
STTVP

期望的结果是:

S,3 T,2 T,3 S,1 P,2
      S,1      T,1
                 V,1

jason680

回复 7# sunzhiguolu

$ perl gc.pl
|   d   T   s   8   
N   6   d   s   8   5   |   \   4   s   a   w   d   4           1   /   
Q   d   s   5   |   \   4   s   
N   d   s   8   5   |   \   4   s   a   w   d   4   1   /   *   [   ]   d   f   ~   9   D       E   F   +   V   F   -   V   _   S   
|   s   d   
N   N   U   s   8   5   |   
N,3 d,3 d,2 s,3 8,3 5,2 |,2 4,1 4,1 a,1 w,1 w,1 4,1 1,1 /,1  ,1 1,1 /,1 d,1 f,1 ~,1 9,1 D,1  ,1 E,1 F,1 +,1 V,1 F,1 -,1 V,1 _,1 S,1
|,2 6,1 s,2 8,1 |,1 \,1 \,1 \,1 s,1 s,1 a,1 d,1 d,1 4,1  ,1 *,1 [,1 ],1                                                            
Q,1 N,1 T,1 5,1 5,1 |,1 4,1 s,1                                                                                                     
    s,1 U,1                                                                                                                        

$ cat gc.pl
#!/usr/bin/perl
use strict;
use warnings;

my %hData;
my ($sMax_n, $sMax_m) = (0,0);
while (<DATA>){
  my $sPos = 0;
  while(m/(.)/g){
    print "$1   ";
    $hData{$sPos++}{$1}++;
  }
  $sMax_n = $sPos if($sMax_n < $sPos);
  print "\n";
}


my @aOut;
foreach my $sN (keys %hData){
    my $rh = $hData{$sN};
    my $sPos = 0;
    foreach (sort {$rh->{$b} <=> $rh->{$a}} keys %{$rh}){
        $aOut[$sPos++][$sN] = "$_,$rh->{$_}";
    }
    $sMax_m = $sPos if($sMax_m < $sPos);
}

my $sOut;
foreach my $sM (0 .. $sMax_m-1){
  $sOut = "";
  foreach my $sN (0 .. $sMax_n-1){
    $sOut .= ($aOut[$sM][$sN] // "   "). " " ;
  }
  print "$sOut\n";
}


__DATA__
|dTs8
N6ds85|\4sawd4  1/
Qds5|\4s
Nds85|\4sawd41/*[]df~9D EF+VF-V_S
|sd
NNUs85|

sunzhiguolu

回复 8# jason680
谢谢大神指点, 受您的启发 我扩展了下, 代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($row, $col, @aData) = (0) x 2;
   
6. while (<DATA>){
   
7.     print;
   
8.     my $pos = 0;
   
9.     my @aList = /./g;
   
10.     for (@aList){
    
11.         $aData[$pos++]{$_}++;
    
12.     }
    
13.     $row++;
    
14.     $col = @aList if ($col < @aList);
    
15. }
    
16. 
    
17. my @aMatrix;
    
18. foreach my $c (0 .. $col - 1){
    
19.     my $r = 0;
    
20.     foreach my $k (sort {$aData[$c]->{$b} <=> $aData[$c]->{$a}} keys %{$aData[$c]}){
    
21.         $aMatrix[$r++][$c] = qq("$k,$aData[$c]->{$k}");
    
22.     }
    
23.     foreach ($r .. $row - 1){
    
24.         $aMatrix[$_][$c] = " " x 5;
    
25.     }
    
26. }
    
27. 
    
28. print "@$_\n" for @aMatrix;
    
29. 
    
30. __DATA__
    
31. |dTs8
    
32. N6ds85|\4sawd4  1/
    
33. Qds5|\4s
    
34. Nds85|\4sawd41/*[]df~9D EF+VF-V_S
    
35. |sd
    
36. NNUs85|
    

复制代码