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

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

#!/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, "\n";
}

コメントを投稿する

返信先
コメント	お気軽にコメントをお寄せくださいませ・コメントを投稿するにはブラウザの JavaScript を有効にしてください・入力された通りに改行位置で改行されます・HTML タグは使用できませんが、文中の URL は自動的にリンクされます・"<" は "<"、">" は ">" と書いてください　・MovableType関係の質問でテンプレートタグをそのまま書かれると見えません
名前	(匿名可/必須/公開)
メール	(匿名可/必須/非公開)
投稿確認	(必須) コメントスパム防止のため投稿前にを入力してから投稿してください。お手数ですがご協力のほど宜しくお願いいたします。

ヘッダメニュー

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

この記事を読んだ人はこんな記事も読んでいます

この記事のアーカイブ

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

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

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー

ヘッダメニュー

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

この記事を読んだ人はこんな記事も読んでいます

その他の関連する記事

この記事のアーカイブ

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

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

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー