gooブックマークにブックマークするPerlスクリプト

Tweet

gooブックマーク [bookmark.goo.ne.jp] にブックマークします。livedoor Clip [clip.livedoor.com] と構造がそっくりでしたｗ

WWW::Mechanizeの習作としてみてくれればと思います。なるべく WWW::Mechanizeは新しいものを使うように。古いのだと、自動遷移した後のURLが正しく取れない不具合があるので、うまく動きません。

use strict;
use warnings;
use WWW::Mechanize;
use utf8;
use Encode;
 
# ID/Password
 
my $username = 'abc01234';
my $password = 'xxxxxxxx'; 
 
# WWW:Mechanize スタート
#
 
my $mech = WWW::Mechanize->new();
my $mechurl = 'http://bookmark.goo.ne.jp/add';
$mech->get($mechurl);
 
# $mechurl から https://login.mail.goo.ne.jp/certify-cgi
# /login.cgi?site=bookmark.goo.ne.jp&success=
# http%3A%2F%2Fbookmark.goo.ne.jp%2Fadd に遷移
 
# ログインフォーム入力
 
$mech -> submit_form (
  form_name=>'f1',
  fields => {
    uname => $username,
    pass  => $password,
  },
);
 
# ログイン後 https://login.mail.goo.ne.jp/certify-cgi
# /login.cgi?site=bookmark.goo.ne.jp&success=
# http%3A%2F%2Fbookmark.goo.ne.jp%2Fadd から $mechurl に遷移
 
# Bookmark Entry
 
my $title    = 'M.C.P.C.: gooブックマークにブックマークするPerlスクリプト',
my $url      = 'http://blog.dtpwiki.jp/dtp/2007/10/gooperl_a537.html',
my $comment  = 'gooブックマークへPerlスクリプトでブックマークします。要WWW::Mechanize。',
my @taglist  = ('Perl', 'goobookmark', 'gooブックマーク');
my $point    = 2; # 評価(1-5)
my $publicno = 0; # 公開設定 0->公開 1->友達まで公開 2->非公開
 
# 明示的に移動。ループで使うために
 
(my $tmpurl =  $url) =~ s|\+|%2b|g;
$mechurl = "http://bookmark.goo.ne.jp/add/detail/?url=$tmpurl";
$mech->get($mechurl); 
 
# Form にブックマーク項目入力
 
$title   = Encode::encode('utf8', $title);
$comment = Encode::encode('utf8', $comment);
my $tags = join(',', @taglist);
$tags    = Encode::encode('utf8', $tags),
 
# 公開ブックマーク禁止URLをブックマークしようとしたときに非公開を選択して処理 
$publicno = 2 unless ( decode('utf8', $mech->content() ) =~m|r0">公開</label>|);
 
# 新規追加URLに遷移した場合
if ($mech->uri() =~m|^http://bookmark.goo.ne.jp/add/detail|) {
  $mech -> form_name('boomarkEdit');
  $mech -> set_fields (
    title        => $title,
    keywordlist  => $tags,
    point        => $point,
    comment      => $comment,
    publicno     => $publicno,
  );
  $mech -> click('addDetail'); 
}
# 編集URLに遷移した場合
if ($mech->uri() =~m|^http://bookmark.goo.ne.jp/add/edit/|) {
  $mech -> form_name('boomarkEdit');
  $mech -> set_fields (
    #title       => $title, #タイトルは全ユーザ共通
    keywordlist => $tags,
    point       => $point,
    comment     => $comment,
    publicno    => $publicno,
  );
  $mech -> click('editEdit'); 
}
 
exit 0; 

（2007-10-12 18.27追記）

M.C.P.C.: gooブックマークはロボよけでNOINDEXを指定していると非公開ブックマークしかできない を受けて、公開ブックマークが禁止されているURLをブックマークしたときには、非公開でブックマークするように変更しました。

<ins># 公開ブックマーク禁止URLをブックマークしようとしたときに非公開を選択して処理</ins>
<ins>$publicno = 2 unless ( decode('utf8', $mech->content() ) =~m|r0">公開</label>|);</ins>

（2007-10-12 20.17追記）

http://bookmark.goo.ne.jp/add/detail/?url=

の後ろにURLを付ければブックマーク画面に遷移するのですが、URLに「+」を含む場合、エラー画面に遷移していて、うまく動かなかったので、とりあえず+だけパーセントエンコーディングしておきました。

<ins>(my $tmpurl = $url) =~ s|\+|%2b|g;</ins>
$mechurl = "http://bookmark.goo.ne.jp/add/detail/?url=$<ins>tmp</ins>url";

2007.10.11 20:17 投稿　大野 義貴 [Perl] | 固定リンク |