文件以矩阵的形式输出

w123456_cu

文件有6 列= （序号、学校、学科、年限、发文数、引文数）。如

1. 
   
2. 1  北京师范大学  基础科学 2005 624 4437
   
3. 2  北京师范大学  基础科学 2006 725 6543
   
4. 3  北京师范大学  基础科学 2007 685 8969

复制代码

=======================================

1. use v6;
   
2. sub MAIN(Str $files) {
   
3.     my %hash_paper;
   
4.     my %hash_cited;
   
5.     my $file-path = IO::Path.new($files);
   
6.     if (!($file-path.e && $file-path.r)) {
   
7.          say "Config file not exist path -> $file-path";
   
8.          exit
   
9.      }
   
10.      my @lines = $file-path.lines;
    
11.      for @lines {
    
12.          my ($, $univ, $dis, $year, $paper, $cited) = .words;
    
13. 
    
14.          try {
    
15.              %hash_paper{$year}{$univ}{$dis} += $paper;
    
16.              %hash_cited{$year}{$univ}{$dis} += $cited;
    
17.              }
    
18.              CATCH {
    
19.                  default {
    
20.                      next;
    
21.                  }
    
22.              }
    
23.          }
    
24.      }
    
25. 
    
26.     my @times = %hash_paper.keys.sort();
    
27.      for @times -> $t {
    
28.          # i dont know how to do
    
29.       }
    
30. }
    

复制代码

我想把文件（见附件），按每年以矩阵的形式输出（一个发文数矩阵、一个引文数
矩阵）


data.rar (8.77 KB, 下载次数: 13)

2015-10-25 17:56 上传

点击文件名下载附件

b114213903

来个笨的！

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my $data={};
   
5. while (my $line=<DATA>){
   
6.         if($line){
   
7.                 my ($univ,$dis,$year,$paper,$cited)=(split /\s+/,$line)[1..5];
   
8.                 $data->{$univ}->{$year}->{$dis}=[$paper,$cited];
   
9.         }
   
10. }
    
11. 
    
12. foreach my $uni(sort keys %{$data}){
    
13.         print "学校\t";
    
14.         foreach  my $yea(sort {$a<=>$b}keys %{$data->{$uni}}){
    
15.                 foreach my $dis(keys %{$data->{$uni}->{$yea}}){
    
16.                         print "$dis\t";
    
17.                 }
    
18.         }
    
19.         print "\n";
    
20.         last;
    
21. }
    
22. 
    
23. foreach my $uni(sort keys %{$data}){
    
24.         print "$uni\t";
    
25.         foreach  my $yea(sort {$a<=>$b}keys %{$data->{$uni}}){
    
26.                 foreach my $dis(sort keys %{$data->{$uni}->{$yea}}){
    
27.                         print "$data->{$uni}->{$yea}->{$dis}->[0]\t";                  #[0]发文数，[1]为引用数
    
28.                 }
    
29.         }
    
30.         print "\n";
    
31. }
    
32. 
    
33. __DATA__
    
34. 1        北京师范大学        基础科学        2005        624        4437
    
35. ……

复制代码

w123456_cu

仿照楼上的写了一个，我的可读性很差

1. use v6;
   
2.     my ( $da, @cnki ) = $=finish.lines;
   
3.     my %hash;
   
4.     my (@yy,@uu,@dd);
   
5.     for @cnki {
   
6.          my ($, $univ, $dis, $year, $paper, $cited) = .words;
   
7.            %hash{$year}{$univ}{$dis} = [ $paper, $cited];  
   
8.          }
   
9. 
   
10. 
    
11.          ##
    
12.          @yy = %hash.keys.sort;
    
13.              for @yy -> $y {
    
14.                      @uu= %hash{$y}.keys.sort;
    
15.                      for @uu -> $u {            
    
16.                      @dd= %hash{$y}{$u}.keys.sort;
    
17.                      }
    
18.                  }
    
19. 
    
20. 
    
21. 
    
22.       ###
    
23.      for @yy -> $y {
    
24.              $y.say;
    
25.              for @dd -> $d {
    
26.                      print "\t $d\t";
    
27.                           }
    
28. 
    
29.               for @uu -> $u {
    
30.                       print "\n$u\t";
    
31.                       for @dd -> $d {
    
32.                        print "%hash{$y}{$u}{$d}[1]\t";  #[0]发文数，[1]为引用数
    
33.                        }
    
34.                }
    
35.                  print "\n";
    
36.       }
    
37. 
    
38. 
    
39. 
    
40. 
    
41. =finish
    
42. num  univ           dis         year    paper cited     
    
43. 1        北京师范大学        基础科学        2005        624        4437
    
44. 2        北京师范大学        基础科学        2006        725        6543
    
45. 3        北京师范大学        基础科学        2007        685        8969

复制代码

104359176

输出的东西是在文本中看起来像矩阵还是要导入到 excel 中？

如果只是在文本格式中列对齐的话，用 sprintf 设置每个字段的对其方式和指定宽度。

1. for my $records (values $data) {
   
2.     sprintf("%10s, %10s, %10s", @{$records});
   
3. }
   

复制代码

如果要导入到 excel 中，字段的输出以 \t 间隔

1. for my $records (values $data) {
   
2.     say join("\t", @{$records});
   
3. }

复制代码

xie3ks

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my %tar_output;
   
6. my %univ;
   
7. my %dis;
   
8. open SOUR_FILE, "/home/oracle/data.txt";
   
9. 
   
10. while (<SOUR_FILE>)
    
11. {
    
12.     my $line = $_;
    
13.     my @input_line;
    
14. 
    
15.     if($line=~/^[0-9]/)
    
16.     {
    
17.         @input_line = split(/\s/, $line);
    
18.         #print $input_line[0],$input_line[1],$input_line[2],$input_line[4],"\n";
    
19. 
    
20.         $tar_output{$input_line[1]}{$input_line[2]} += $input_line[4];
    
21. 
    
22.         $univ{$input_line[1]} += 1;
    
23.         $dis{$input_line[2]} += 1;
    
24.     }
    
25. }
    
26. 
    
27. print " "x15,join " "x5, keys %dis,"\n";
    
28. foreach my $univ (sort keys %univ)
    
29. {
    
30.     printf("%10s", $univ);
    
31.     foreach my $dis (sort keys %dis)
    
32.     {
    
33.         if(defined $tar_output{$univ}{$dis})
    
34.         {
    
35.               printf("%15d",$tar_output{$univ}{$dis});
    
36.         }
    
37.         else
    
38.         {
    
39.               printf("%15d", 0);
    
40.         }
    
41.     }
    
42.     print "\n";
    
43. 
    
44. }

复制代码

如果真要打印出一模一样的表格的话，可以用 excel 或在 xml模块