GMailのメールを受信するスクリプト

備忘録: Perl

Mail::POP3Clientモジュールを使ってGMailのメールボックスよりメール受信をするPerlプログラムを書く。
このモジュールはSSL上のPOP3にも対応していてくれているので便利だ。
（GMailでPOP受信する際はSSLが必須であるようだ）
インスタンス作成時にUSESSLオプションを有効にすることでSSLを使うことができる。

ただし、このUSESSLオプションを使う場合は、IO::Socket::SSLモジュールが必要になる。
これを入れずにSSLを使おうとした場合、エラーメッセージ等は出ずに何も行われずに処理終了してしまうので
注意が必要だ。
（最初にプログラムを組んでみたときに、処理が行われない原因が分からずはまった）

ファイル・ディレクトリ一覧を取得

備忘録: Perl

my $path='/var/www/svn/rep';
my @excludelist = qw(dt3_temp dt3_temp2);

my @files = ();
my %excludelist ;
foreach (@excludelist){
$excludelist{$_} = 'true';
}

chdir($path);
@files = <*>;

foreach my $file (@files){
if(-d $file && !exists($excludelist{$file})){
#何かする
}
}