会社のアカウントのメールは全部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 'Conne
![Net::POP3 でサーバ上にあるメールを一括削除 | ブログが続かないわけ](https://cdn-ak-scissors.b.st-hatena.com/image/square/aadf704b7a01be6b374ea7ea2ee4367e4e3afaf6/height=288;version=1;width=512/http%3A%2F%2Fecx.images-amazon.com%2Fimages%2FI%2F51R67-AW4BL._SL160_.jpg)