求助--perl6实现分类统计频数

w123456_cu

文件有三列分别为：文章名、文章作者、该论文被引用的次数。如下：

1. 
   
2. # ----------------data.txt----------------------------
   
3. #
   
4. # paper_name  author_name  cited_num
   
5. # name1        author1     2
   
6. # name2        author2     1
   
7. # name3        author1     3
   
8. # name4        author4     4
   
9. # name5        author1     2
   
10. # name6        author3     7
    
11. # name7        author4     5
    
12. # name8        author1     1
    
13. # name9        author4     2
    
14. # name10       author3     5
    
15. # ...
    
16. # ----------------------------------------------------
    

复制代码

希望统计: 同一作者、相同被引用次数出现的频率（例如，author1被引用次数为2的文章有2篇）。希望输出的矩阵如下：

1. 
   
2. #-------------------output------------------------------
   
3. # cited_num   author1  author2   author3  author4   ...
   
4. # 1               1       1          0       0
   
5. # 2               2       0          0       1
   
6. # 3               1       0          0       0
   
7. # 4               0       0          0       1
   
8. # 5               0       0          1       1
   
9. # 6               0       0          0       0
   
10. # 7               0       0          1       0
    
11. #----------------------------------------------------

复制代码

perl入门，还请多指点。

1. use v6;
   
2. 
   
3. my $file = open 'data.txt';
   
4. my %h;
   
5. 
   
6. for $file.lines {
   
7.     my ($author, $num) = .words[1,2];
   
8.     %h{$author}{$num}++;
   
9. }
   
10. 
    
11. say %h.fmt;

复制代码

rubyish

biru:

1. #!perl6
   
2. my ( $da, @ta ) = $=finish.lines;
   
3. my ( @this, %ha, %sh );
   
4. 
   
5. for @ta {
   
6.     my ( $, $sp, $lit ) = .words;
   
7.     %ha{$lit}{$sp}++;
   
8.     %sh{$sp} ||= 1;
   
9. }
   
10. 
    
11. say join "\t", $da.words[*-1], @this = %sh.keys.sort;
    
12. 
    
13. for %ha.sort: +*.key {
    
14.     say join "\t", $^p.key, @this.map: { $p.value{$_} || 0 };
    
15. }
    
16. 
    
17. 
    
18. =finish
    
19. paper        author      cited
    
20. name1        author1     2
    
21. name2        author2     1
    
22. name3        author1     3
    
23. name4        author4     4
    
24. name5        author1     2
    
25. name6        author3     7
    
26. name7        author4     5
    
27. name8        author1     1
    
28. name9        author4     2
    
29. name10       author3     5
    
30. name11       author3     11
    

复制代码

w123456_cu

1. +*.key
   
2. $^p.key
   
3. $p.value{$_}

复制代码

The ^ twigil declares a formal positional parameter to blocks or subroutines.
If you have self-declared a parameter using $^a once, you may refer to it using only $a thereafter.

hqyus

从perl 6起步， 有前途