- 论坛徽章:
- 0
|
回复 1# xiayuu119 - use Data::Dumper;
- while(<DATA>){
- my ($cat,$line,$value,) = split;
- $hash->{$cat}{$line} = $value;
- }
- print Dumper $hash;
- foreach my $k (sort keys %$hash){
- print $k;
- print "\n";
- my @lines = sort keys %{$hash->{$k}};
- foreach my $c (1 .. $lines[-1]){
- print $c;
- print "\t";
- $hash->{$k}{$c} = 0 if not exists $hash->{$k}{$c};
- print $hash->{$k}{$c};
- print "\n";
- }
- }
- __DATA__
- a 3 20
- a 6 50
- b 5 60
- b 7 30
- output ---->
- $VAR1 = {
- 'b' => {
- '7' => '30',
- '5' => '60'
- },
- 'a' => {
- '6' => '50',
- '3' => '20'
- }
- };
- a
- 1 0
- 2 0
- 3 20
- 4 0
- 5 0
- 6 50
- b
- 1 0
- 2 0
- 3 0
- 4 0
- 5 60
- 6 0
- 7 30
复制代码 |
评分
-
查看全部评分
|