URLを元にページのタイトルを取得するPerlサンプルスクリプト

URLから元ページのタイトルを取得するためのPerlのサンプルスクリプトです。
処理手順は以下の通りです。

1.ページURLを元にHTMLソースを取得する。
2.タイトルタグで囲まれている文字列を抜き出す。

対象のページがどんな文字エンコードで記述されているか不明なので、文字エンコードの変換処理も行っています。

use LWP::Simple;

use Jcode;



#my $pageurl = "http://www.01club.org/59log/";

my $pageurl = "http://59bbs.org/";

my $content = get($pageurl);

my $title = '';

my $pattern = "<title>(.+)</title>";

if($content =~ m/$pattern/i) {

    $title = $1;

}



# 文字コードをSJISに変換

my ($code, $nmatch) = Jcode::getcode(\$title); 

$title = Jcode->new($title, $code)->sjis;

print "$title\n";


サンプルコードではタイトルだけ取得してますが、正規表現のパターンを変更することで、本文も取得なども行えるはずです。
[231] Posted by buzei at 2008/03/02 22:35:06
オープン | 0 point | Link (1) | Trackback (0) | Comment (0)

キーワード
プログラミング Perl サンプル

掲示板と検索のホームページ


URLを元にページのタイトルを取得するPerlサンプルスクリプト 関連リンク

[Perl]HTMLソースからtitleやbodyを抜き出すための正規表現
HTMLソースからtitleやbodyタグで囲まれている部分を抜き出すための正規表現ですが、<title.*>(.+)</title><body...

URLを元にページのタイトルを取得するPerlサンプルスクリプト トラックバック

トラックバックURL :


URLを元にページのタイトルを取得するPerlサンプルスクリプトへのコメント


詳細の入力フィールドを表示する

おすすめ  (チェックしてコメントすると最新情報に掲載)
コメント :

< 前のスレッド      次のスレッド >

アクセスランキング

今日のアクセスランキング（上位10件）

  1. 2NN (2ch News Navigator) (4 PV)
  2. 僕が2ちゃんねるを捨てた理由 ひろゆき著 (2 PV)
  3. 【速報】パナマ文書に記載されている日本企業、日本人の一覧リスト (2 PV)
  4. ２ちゃんねるが外国の企業に売り飛ばされたらしい (2 PV)
  5. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (2 PV)
  6. [Twitter]ツイッター検索のまとめ (2 PV)
  7. [B-CAS]平成の龍馬（多田光宏）逮捕 (2 PV)
  8. [書籍]C++ 関連 (1 PV)
  9. 市川海老蔵さんを殴ったのは関東連合の男という噂 (1 PV)
  10. アニメ(anime) (1 PV)

今月のアクセスランキング（上位10件）

  1. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (159 PV)
  2. 掲示板フリーソフト - 無料で利用できる掲示板CGI (89 PV)
  3. 2ちゃんねる（2ch）検索 掲示板 - スレタイ、過去ログ、全文検索 (88 PV)
  4. 2NN (2ch News Navigator) (60 PV)
  5. [Twitter]ツイッター検索のまとめ (55 PV)
  6. 【速報】パナマ文書に記載されている日本企業、日本人の一覧リスト (50 PV)
  7. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (49 PV)
  8. プリンセスガーデンホテル女性社長の「片岡都美」氏はフジモリ元大統領夫人 (42 PV)
  9. [掲示板]2ちゃんねる(2ch.net) (35 PV)
  10. 白井景子 (29 PV)

アクセス統計

ディレクトリ

関連サイト