Perlメモ

スクリプトを置いた箇所のファイル一覧を出すプログラムです。
下記の書籍を大いに使っております。

もっと自在にサーバを使い倒す 業務に役立つPerl (Software Design ｐlus)

書籍の良い点を上げておきます。

• 薄いこと（良くまとまっており、持ち運びに便利）
• プログラムの一行一行に解説があること。
• お作法についてちゃんと記述されていること。
• リファレンスについて記述されていること。
• オブジェクト指向について多少記述されていること。

加えて下記の本は、やさしさが溢れております。
リファレンスについては触れられておりませんが、
ちょっとしたテキスト処理なら、できるようになると思います。

新版Perl言語プログラミングレッスン入門編

use strict;
use warnings;
use Data::Dumper;
# ディレクトリの取得
my $dir = "./";
# ディレクトリハンドルをオープン
opendir my $dh, $dir
    or die qq/Can't/;
#「.」、「..」以外のファイルを取得
my $files = [];
while ( my $file = readdir $dh) {
    next if $file eq '.' || $file eq '..';
    push $files, $file;
}
print Dumper $files;
print "@$files"."\n";
closedir $dh;