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

[0548 nobodyさん 2009/05/24(日) 14:41:40 ID:???]

print join(',', map($_->[0], @array)),"\n";