トラックワードのマイページから検索キーワードを抽出する

Posted by
ぴろり
Posted at
2007/07/27 18:42
Trackbacks
関連記事 (0)
Post Comment
コメントできます
Category
ソフトウェア カテゴリ

 トラックワードのマイページから、検索キーワードの一覧を抽出するための Per lスクリプト。

この記事を Delicious に追加する   このエントリーをはてなブックマークに追加  

#!/usr/bin/perl
use strict;
use WWW::Mechanize;

# Setup your trackword account
use constant LOGIN_USERNAME => 'username';
use constant LOGIN_PASSWORD => 'password';

use constant LOGINDEX_URL => 'http://my.trackword.net/userlogindex.phtml';


# Initialize Mechanize object
my $mech = WWW::Mechanize->new
    or die 'Failed to initialize <WWW::Mechanize>';
$mech->timeout (30);

# Retrieving user login page
my $res = $mech->get (LOGINDEX_URL);
$res->is_success
    or die 'Failed to retrieve the login page';
sleep 1;# thoughtfulness for server

# Login process
$mech->form_number (1)
    or die 'Login form is not found';
$mech->set_fields (login => LOGIN_USERNAME, passwd => LOGIN_PASSWORD);
$res = $mech->submit;
$res->is_success
    or die 'Failed to submit the form';
sleep 1;# thoughtfulness for server

# Retrieving the trackwords
my $content = $res->content;
while ($content =~ s!<tr>s+<th width="15%" rowspan="d+">s+<b>(S+)s*</b><br>!!s) {
    print $1, "
";
}
この記事を Delicious に追加する   このエントリーをはてなブックマークに追加  


この記事のアーカイブ

全ての記事 »
2007年
全てのカテゴリ »
電算室 » ソフトウェア
全てのタグ »
, ,

関連記事/トラックバック

関連記事/トラックバックはまだありません

この記事にトラックバックを送るには?

コメントを投稿する

 
 (必須, 匿名可, 公開, トリップが使えます)
 (必須, 匿名可, 非公開, Gravatar に対応しています)
 (必須)
スパム コメント防止のため「投稿確認」欄に ランダムな数字 CAPTCHAについて を入力してから送信してください。お手数ですがご協力のほど宜しくお願いいたします。