Perl 初心者コーナー Part24

[0143 nobodyさん 03/06/10 15:16 ID:???]

>>142
よくわかんないけど、こんな感じ？

@tmp = sort { (${ORG[$a]->{adanaid}} <=> ${ORG[$b]->{adanaid}}) } 0 .. $#ORG;
foreach (@tmp) { push(@temp,$ORG[$_]); }
foreach (@temp){
　while(($i,$j) = each(%$_)){
　　print qq|$i = $j\n|;
　}
}