Perl 初心者コーナー Part22

[0946 nobodyさん 03/05/14 16:12 ID:???]

open(F,"csv.csv");
while(<F>){
$hash{(split(/,/))[2]}=$_;
}
close(F);

foreach (sort {$a<=>$b} keys %hash){
print $hash{$_};
}