プロバイダのメールを取得表示するperlスクリプトをでっちあげた。

今まではgoogleのGmailでプロバイダのメールを取得して、WEBやアプリのGmailでメールを確認してたんだけど、GmailがPOPのサポートを終了という話。

「Gmail、POPのサポートを2026年1月に終了へ」

となると、迷惑メール＝SPAMメールが面倒くさくなる。

Gmailを使ってる一番のメリットは迷惑メールの振り分け。迷惑メールフォルダは中を確認することもなくそのまま全削除してた。

これが使えなくなる。

WEBサービスを公開してたり、ブログで仕事受注していたこともあって、プロバイダのメールアドレスはオープンにしてた…なもんで、お問い合わせやプロモーションなどのメール以外、残り95%ぐらいは迷惑メール。

GmailのPOPサポートが終了となってから慌てても、空白期間が生じるんで、今のうちに対応しておこうというところ。

やることは単純で。

・pop3でプロバイダのメールサーバーにログイン

・届いてるメールを取得してログアウト

・メールの中身を確認、解析

・迷惑メールは削除

・迷惑メール以外は表示

これだけ。

Net::POP3を使ってメールサーバーにログイン、取得。

MIME::Base64とMIME::QuotedPrintを使ってメールのエンコードされている部分(本文やSubject、From)をデコード。

メールのヘッダーを解析するためにMIME::Emailというモジュールがあるんだけど、レンサバのロリポップにはインストールされていないので、ここは自作実装。

問答無用のスパムリスト

sub list_spam{
    my $self = shift；
    my $args = shift；

    my @list = (
        ’[spam]’，’bizocean’，’visa’，’JACCS’，’ETC’，
        ’日本郵便’，’楽天会員’，’楽天カード’，’東京電力’，’セゾンカード’，’宝くじ公式’，’メルカリ’，’マネックス’，
        ’大和証券’，’クロネコ’，’ソースネクスト’，
        ’マイル’，’マイレージ’，’お客様サービスセンター’，’入金’，’分割・リボ’，’統計調査’，’即日’，
        ’裏ワザ’，’サービス停止’，’セキュリティ警告’，’無料でもらえる’，’ガス料金’
    )；
    map {$_= quotemeta($_)} @list；
    return join(’|’， @list)；    
}

プロバイダのメールで登録していない銀行やサービスは明らかにスパムだし、それ以外の「裏ワザ」「即日」といった文言を使うようなもの、「サービス停止」だのプロバイダのメールアドレス宛に飛んできそうにないものを列挙羅列して、SubjectやFromに含まれていたら削除。

このほか、ワードの組合せや本文中に含まれるリンクなんかでも判定を入れたので迷惑メールはほぼほぼシャットアウトできたと思う。

また、これらの判定の前にホワイトリストを通すようにしてるんで、必要なメールを削除するようなことはないだろう。

gmailをありがたく便利に使わせてもらってるんだけど、いつかのSPFレコードうんぬんの時も、gmailの仕様変更(？)は、影響が大きいんだよなあ。