Twitterでアイコン変えるコード
#!/usr/bin/perl # TWITTER ICON CHANGER use strict; use LWP::UserAgent; use HTML::TagParser; my $NAME = "twitter icon changer 070706002"; my $FILENAME = 'a.jpg'; my $email = 'username'; my $password = 'password'; my $ua = new LWP::UserAgent; $ua->agent($NAME . $ua->agent); $ua->cookie_jar( {} ); my $res=$ua->post( 'https://twitter.com/sessions', Content_Type => 'application/x-www-form-urlencoded', Content => [ 'username_or_email' => $email, 'password' => $password, 'commit' => 'Sign In' ]); $res = $ua->get( 'http://twitter.com/account/picture' )->content; my $siv = HTML::TagParser->new( $res )->getElementById( "siv" )->getAttribute('value');; $res=$ua->post( 'http://twitter.com/account/picture', Content_Type => 'multipart/form-data', Content => [ 'user[profile_image_temp]' => '', 'user[profile_image]' => [$FILENAME], 'siv' => $siv, 'commit' => 'save' ]);
まったくひねり無し。
テストで適当な画像にアイコンを変えた後で、自分の前つかっていたアイコンが見つからずに焦った(;´Д`)