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. ダビング10開始 (2 PV)
  2. 文化庁が「ブルーレイ課金」に対するパブリックコメントを募集 (1 PV)
  3. 【速報】パナマ文書に記載されている日本企業、日本人の一覧リスト (1 PV)
  4. [掲示板]59bbs のダウンロード（Perl/CGI）[フリーソフト] (1 PV)
  5. 掲示板フリーソフト - 無料で利用できる掲示板CGI (1 PV)
  6. hitomi(ヒトミ) (1 PV)
  7. PHP、MySQLで動くオープンソース掲示板ソフト (1 PV)
  8. [パナマ文書]で電通、NHKが風評被害かネットで書き込み相次ぐ (1 PV)
  9. 民主党小沢幹事長不起訴、国民は失望感 (1 PV)

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

  1. プリンセスガーデンホテル女性社長の「片岡都美」氏はフジモリ元大統領夫人 (15 PV)
  2. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (6 PV)
  3. KAT-TUN（ジャニーズ事務所）の元メンバー田中聖容疑者が大麻所持で逮捕 (5 PV)
  4. 2NN (2ch News Navigator) (5 PV)
  5. 2ちゃんねる（2ch）検索 掲示板 - スレタイ、過去ログ、全文検索 (5 PV)
  6. ダビング10開始 (4 PV)
  7. 読売新聞「石井誠」記者変死事件 (4 PV)
  8. UseBB（ユースビービー） - フォーラムソフトウェア (4 PV)
  9. 2chみたいな掲示板「PHP 2chBBS」 (4 PV)
  10. 伝説の男、瓜田純士さんが新宿駅構内で2週間前に割腹自殺を図る (3 PV)

アクセス統計

ディレクトリ

関連サイト