該当フォルダ内のファイル名を取得する方法 - コードを舐める日々

Perlを学び始めて1週間強といったところで、Perlは本当に驚く書き方が多い。 #!/usr/bin/perl use strict; use warnings; my $logdir = "./log"; #読み込む該当フォルダ名 opendir(DIR, $logdir); my @FILES = readdir(DIR); closedir(DIR); print @FILES; しかし、opendir関数を使うことはナンセンスらしい。 しかも隠れファイル（.とか）まで余分に読み込んでしまう。 この記事を読んで試してみた。 スリムに書くと下記の通り。 #!/usr/bin/perl use strict; use warnings; while(<./log/*>){ print $_."\n"; } 簡潔にできてしまう。 $_を省略したものでもおｋ。 #!/usr/bin/per