アバウトミーにひとことを投稿するPerlスクリプト

Tweet

@niftyがサービスしているプロフィールサービス「アバウトミー」に、コマンドラインから「ひとこと」を投稿します。アバウトミーはAPIを公開しています [webservice.nifty.com] が、投稿APIはまだないんです。相変わらずLinuxからの動作確認しかしていません。

Filename: aboutme.pl

#!/usr/bin/perl
 
use strict;
use warnings;
use utf8;
use Encode;
use WWW::Mechanize;
 
my $username = 'ABC01234';
my $password = 'password';
 
my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Windows Mozilla' );
 
# main
 
(my $text = decode( 'utf8', shift ) ) =~ tr/[\x00-\x1f\x7f]//d;
login( $username, $password );
post ( encode( 'utf8', $text ) );
 
exit;
 
 
sub login {
  my $username = shift;
  my $password = shift;
  my $res = $mech->get('http://aboutme.jp/mypage');
  $mech->set_visible( $username, $password );
  $mech->submit();
  if ( $mech->uri() eq 'https://aboutme.jp/account/login' ) {
    die 'Login Failed.';
  }
  return;
}
 
sub post {
  my $text = shift;
  my $res = $mech->get('http://aboutme.jp/mypage');
  $mech->form_number(2);
  $mech->set_visible( $text );
  $mech->submit();
  return;
}

会社にピストルを持った強盗が押し入って助けを求めるため外部に連絡しなくてはいけないのだがブラウザ開いてログインして、など目立つ行動をすると頭を打ち抜かれる恐れがあるときなどに利用してください。

2009.03.22 18:28 投稿　大野 義貴 [Perl] | 固定リンク |