Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Thank youfor( my $i = 0; $i <= $#columns; $i++){ push @{$first{$t_name}{$tab}{$sp}} , $ +columns[$i] ; } for my $fr ( sort keys %first ) { for my $tg ( sort keys %{ $first{$fr} +}) { for my $ab ( sort keys %{ $first{$fr} +{$tg} }) { foreach my $rt ( @{$first{$fr}{$tg}{$ab}}){ my $val = $first{$fr}{$tg}{$ab}{$rt} ; print " print $fr, $tg, $ab, $first{$fr}{$tg}{$ab}{$rt} "; } } } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Cant coerce
by hdb (Monsignor) on Jun 24, 2014 at 18:52 UTC | |
|
Re: Cant coerce
by LanX (Saint) on Jun 24, 2014 at 18:34 UTC | |
|
Re: Cant coerce
by AppleFritter (Vicar) on Jun 24, 2014 at 18:22 UTC | |
|
Re: Cant coerce
by Anonymous Monk on Jun 24, 2014 at 18:18 UTC |