与えられたURLのページタイトルを取得するための大雑把な仕掛けです。その場しのぎな状況で、コピペしてよく使うのでここにメモしておきます。

■コード(url2title.pl)

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use Encode;
use Encode::Guess qw/shift-jis euc-jp 7bit-jis/;
use utf8;
binmode STDOUT, ":utf8";

while (<>) {
    chomp;
    next if not /^http/;
    print url2title($_), "\n";
}

sub url2title {
    my ($url) = @_;
    my $ua = LWP::UserAgent->new(timeout => 5);
    my $req = HTTP::Request->new(GET => $url);
    $req->header('Accept' => 'text/html');
    my $res = $ua->request($req);
    return $url if not $res->is_success;

    my $title = $url;
    if ($res->content =~ m{<title>(.+?)</title>}smi) {
	$title = $1;
	$title =~ s/[\t\n\r]+/ /g;
	my $decoder = Encode::Guess->guess($title);
	if (ref($decoder)) {
	    $title = $decoder->decode($title);
	} else {
	    $title = Encode::decode('utf8', $title);
	}
    }
    return $title;
}

■実行例

% cat url.txt
http://www.yahoo.co.jp/
http://chalow.net/
http://www.hatena.ne.jp/
% ./url2title.pl url.txt
Yahoo! JAPAN
たつをの ChangeLog
はてな

自分用メモ。

2010/3/14

単行本	9	1300
文庫	2	80
新書	5	260
合計	16	1640

2010/5/1

単行本	8	1200
文庫	1	50
新書	3	210
雑誌	4	270
合計	16	1730

2010/6/6

単行本	7	920
新書	2	140
雑誌	3	90
合計	12	1150

2010/8/29

単行本	10	1170
文庫	2	50
合計	12	1220

合計56冊。

献本頂きました。ありがとうございます。

■クリス岡崎 / 億万長者専門学校 実践編
[楽天で探す]

世界最高の成功コーチ、アンソニー・ロビンズから絶大な信頼を受ける日本人一番弟子のクリス岡崎。億万長者になるための「5つの実践ルール」を初公開。いま、あなたのすべきことがわかる。富を呼びこむ究極の実践バイブル。

「30分で英語が話せる」[2011-06-09-2]のクリス岡崎氏によるお金本。
「億万長者専門学校」の続編だそうな。
前著は読んでないけど、さくっと目を通してみます。

例の口調ですw

献本頂きました。ありがとうございます。

■魚谷雅彦 / 会社は変われる! ドコモ1000日の挑戦
[楽天で探す]

「ドコモ一人負け」「巨人の凋落」と酷評される厳しい状況から、2010年、顧客満足度No.1へ--いったいドコモに何が起こったのか?心を動かし、人を動かし、会社を動かすマーケティングの神髄。実際に行われた経営改革から学ぶ、長く愛されるブランドのつくり方。

「会社は買われる」ではなく「変われる」です。

妻のツイッター仲間のCさんから頂きました。
ありがとうございます！

■UA / うたううあ
[楽天で探す]

UA（ううあ）が子供ソングを歌うというアルバムです。
けだるい感じかと思ったらそうでもなく、いろんなタイプの音楽を取り入れた面白いアレンジが多いです。
サンバでイケイケなアレンジの「アイアイ」など衝撃的ですw

このCDをかけると、うちの子はCDラジカセの方をずっと見て聴き入ります。
そっちには誰もいないよ！