ブログが続かないわけ

この日記のはてなブックマーク数
Webエンジニアが思うこと by junichiro on Facebook

Net::POP3 でサーバ上にあるメールを一括削除

このエントリーを含むはてなブックマーク hateb

会社のアカウントのメールは全部Gmail に転送しているつもりなのですが、なぜか転送されずにもとのメールサーバに残り続けてしまうものがあります。もしかしたらスパムと判定されたものは、転送すらしない仕様なのかもしれません。

いままでは定期的になにか適当なメーラーで受信して、サーバのものを削除していたのですが、結構無駄な作業に思えてきていましたので、Net::POP3 を使って一括で削除することにしました。

#!/usr/bin/perl
use strict;
use warnings;
use Net::POP3;

my $args = {
    pop3 => 'pop.example.com',
    user => 'yourname',
    pass => 'yourpass',
};

my $mbox = Net::POP3->new( $args->{pop3} ) or die 'Connection failed.';
$mbox->login( $args->{user}, $args->{pass} ) or die 'Login failed.';
my ($index) = $mbox->popstat;
$index-- while ( my $msg = $mbox->delete($index) );

参考にした書籍はもちろん「Perl CPANモジュールガイド」。

この1冊があれば、Perl でやりたいことのほとんどは実現できるのではないでしょうか。本当におすすめです。

この記事のトラックバックURL
http://en.yummy.stripper.jp/trackback/1418089
トラックバック
コメント









関連情報