PerlのWWW::Mechanizeを使って2010年3月現在のTwitterで自画像をアップロード

Tweet

（2010-04-26追記：Net::Twitter 3.12だとできるようになってます。M.C.P.C.: Net::Twitterで自画像Uploadは3.12あたりでできるように直っているようだ）

Net::Twitterのメソッドだと出来んようだから。

エラー処理はほとんどナシな。くじら出てても知らん。あとTwitterのHTML構造変わったら動かなくなると思うよ。注意。

Filename: updateimage.pl

#!/usr/bin/perl
 
use strict;
use warnings;
use Config::Pit;
use WWW::Mechanize;
 
my $p = pit_get( 'twitter.com@CLCLCL' );
die "not preset account data in Pit." if !%$p;
my $username = $p->{username};
my $password = $p->{password};
 
#my $file = 'rinkoangry.png';
my $file = 'cl.jpg';
 
my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Windows IE 6' );
 
my $res = $mech->get('https://twitter.com/settings/profile');
die if $mech->uri() ne 'https://twitter.com/login';
$mech->submit_form(
  form_number => 2,
  fields => {
    'session[username_or_email]' => $username,
    'session[password]'          => $password,
  },
  button => 'commit',
);
$mech->submit_form(
  form_number => 2,
  fields => {'profile_image[uploaded_data]' => $file, },
);
 
exit;
 
__END__

これ使って美人時計でも作るがいいさ！ しらんけど。

ものすごく参考にした。
nDiki: Twitter のアイコンを Perl スクリプトで更新する (改) (2009-03-20) [naney.org]

2010.03.05 01:49 投稿　大野 義貴 [Perl] | 固定リンク |