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"; } 簡潔にできてしまう。 $_を省略したものでもおk。 #!/usr/bin/per