Perl 初心者コーナー Part22

[0364 nobodyさん 03/04/27 00:38 ID:???]

>>357
foreach $key (sort {$a cmp $b} keys %data) {
printf "$key $data{$$key} \n;
}