请教哈希引用数组相关的问题

nullplace

我使用下面这个小脚本处理csv文件，自我感觉代码写得不好。
请大家给点建议，如何修改能优雅些？特别是哈希引用数据库相关的代码。谢谢。

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use Getopt::Std;
   
5. use Tie::Handle::CSV;
   
6. use File::Basename;
   
7. 
   
8. 
   
9. my $fh_input;
   
10. 
    
11. $fh_input = Tie::Handle::CSV->new("test.csv", header => 1);
    
12. 
    
13. my $csv_line;
    
14. 
    
15. my %hash;
    
16. my ($BondCode,$PayDate,$Ratio);
    
17. 
    
18. while ( $csv_line = <$fh_input> ) {
    
19.     $BondCode=$csv_line->{'Bond Code'};
    
20.     $hash{$BondCode}=\@$BondCode;
    
21.     $PayDate = $csv_line->{'Pay Date'};
    
22.     $Ratio = $csv_line->{'Paymet Ratio'};
    
23.     push @$BondCode,[$PayDate,$Ratio];
    
24. }
    
25. 
    
26. foreach $code (keys %hash)
    
27. {
    
28.     print "$code\n";
    
29.         foreach(0..$#{$hash{$code}}){
    
30.         print @{$hash{$code}}->[$_]->[0];
    
31.         print ", ";
    
32.         print @{$hash{$code}}->[$_]->[1];
    
33.     print "\n";
    
34.         }
    
35. }
    
36. 
    
37. close $fh_input;
    
38. exit 0;

复制代码

附件压缩包为代码和数据文件。 test.zip (751 Bytes, 下载次数: 5)

2014-02-19 17:22 上传

点击文件名下载附件
代码和数据文件

rubyish

1. #!/usr/bin/perl
   
2. 
   
3. open my $data, 'test.csv';
   
4. 
   
5. my %hash;
   
6. <$data>;
   
7. 
   
8. while (<$data>) {
   
9.     my ( $BondCode, $PayDate, $Ratio ) = split /,/;
   
10.     push @{ $hash{$BondCode} }, [ $PayDate, $Ratio ];
    
11. }
    
12. 
    
13. while ( my ( $k, $v ) = each %hash ) {
    
14.     print $k, $/;
    
15.     print join( ', ', @$_ ), $/ for @$v;
    
16. }

复制代码

nullplace

回复 2# rubyish

第10行  $hash{$BondCode} 外面用@，是为了将哈希变量强制类型转换为数组吗？谢谢。
   

rubyish

回复 3# nullplace

yes~
   

ytphrx

果然变得优雅高贵上档次。