ダイアリーのバックアップ - 呆備録use strict; use LWP::UserAgent; use HTTP::Request::Common; use HTTP::Cookies; my $mode = 'export'; my $username = 'oppara'; my $password = 'pass'; my $cookie_file = '/path/to/cookie.txt'; my $bak_file = '/path/to/hatena.bak'; my $export_url = 'http://d.hatena.ne.jp/' . $username . '/' . $mode; my $login_url = 'https://www.hatena.ne.jp/login'; my $ua = LWP::UserAgent->new(); $ua->cookie_jar( HTTP::
