自分が発行しているメールマガジンの購読者数を知るPerlスクリプト(subcount.pl)

結城は、まぐまぐさんで「コミュニケーションの心がけ」というメルマガを発行しています。
当然ながら「いま何人の方が読んでいらっしゃるのかなあ？」と気になります。
Webのマイページに行けば「メルマガ読者数の確認」でわかるのですが、ちょっとめんどうなので、コマンドラインから簡単に読めるようにしました。

# subcount.pl
use strict;
use warnings;
use WWW::Mechanize;

my $magazine_id = '9999999'; # メルマガID
my $loginId     = 'magmagidx'; # まぐまぐID
my $password    = 'passpasspass'; # パスワード

my $url = 'https://mypage.mag2.com/Welcome.do?ref=%2Fmypage%2Fpublisher%2Fmngmag%2FSubscriberCount.do%3FmagazineId%3D' . $magazine_id;
my $mech = WWW::Mechanize->new();

$mech->get($url);
$mech->submit_form(
    form_id => 'rm-login',
    fields      => {
        loginId     => $loginId,
        password    => $password,
        oauth_token => '',
    }
);
my $content = $mech->content();
my @matched = ($content =~ m|\>(\d+)\<|g);
# print join("\n", @matched);
print $matched[$#matched];

実行例

> perl subcount.pl
12  ←ここに購読者数が表示されます。

注意

• 無理矢理scrapingしていますので、間違った数字を出すこともあります。
• 発行者用のツールです。

github

• https://github.com/hyuki0000/subcount