| トップページ |

2009.03.22

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

このエントリーをはてなブックマークに追加 mixiチェック

@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 午後 06:28 [Perl] | |

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/19018/44431467

この記事へのトラックバック一覧です: アバウトミーにひとことを投稿するPerlスクリプト:

コメント

コメントを書く






検索


  • Google
    Web blog 内   

プロフィール

あわせて読みたい

カテゴリー

総エントリー数：3814

ﾅﾐﾓﾆ

  • PowerEdge T105

    • DELLのサーバ（意外に安価）。64bitLinux載っけるといいよね、ちょっと高くなるけどRAIDオプションとHDD２台構成にしておくと安心です。

最近のコメント

RSS

最近の記事

○○○

最近のトラックバック

バックナンバー

RSS 1.0 RSS 1.0
はてぶカウンタ++
スカウター : M.C.P.C. ―むり・くり―プラスコミュニケーション
フィードメーター - M.C.P.C.