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

　トラックワードのマイページから，検索キーワードの一覧を抽出するための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 は自動的にリンクされます・"<" は "<"、">" は ">" と書いてください
投稿確認	コメントスパム防止のため投稿前にを入力してから投稿してください。お手数ですがご協力のほど宜しくお願いいたします。(必須)

フッタメニュー

Copyright © 2004-2008 Open MagicVox.net. Some rights reserved under Creative Commons License.
Written in Japanese (utf-8). Japanese fonts are required to view this page.
Generated with Movable Type Open Source 4.15b4b-en

Total Visits:

/ Today:

/ Yesterday:

ヘッダメニュー

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

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

この記事のアーカイブ

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

この記事のトラックバック URL

コメントを投稿する

リファレンス

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

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

最近の人気記事

フッタメニュー

ヘッダメニュー

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

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

その他の関連する記事

この記事のアーカイブ

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

この記事のトラックバック URL

コメントを投稿する

リファレンス

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

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

最近の人気記事

フッタメニュー