Perlコーディング初心者質問スレ Part 55

[0973 nobodyさん 2007/09/16(日) 07:33:41 ID:???]

print +(sort{$a<=>$b}@list)[0] . qq{\n};