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

[0195 nobodyさん 2005/10/22(土) 20:56:04 ID:???]

%files = map {lc($_) => $_} glob '*';
open(IN,$files{'afile'});
ハッシュを使ってこんな感じとか。