X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=misc%2Fpagetitle.pl;fp=misc%2Fpagetitle.pl;h=f3e790bc7c11c9157f5aa8d78ac86d540841f553;hb=788f3dee979e65cd4aa61e6552cd1b45cf92a01f;hp=0000000000000000000000000000000000000000;hpb=5a32926376110896f3f22c1bcb99c9c9d7d36fea;p=lab.git

diff --git a/misc/pagetitle.pl b/misc/pagetitle.pl
new file mode 100755
index 0000000..f3e790b
--- /dev/null
+++ b/misc/pagetitle.pl
@@ -0,0 +1,33 @@
+#! /usr/bin/perl -w
+
+use strict;
+use warnings;
+use encoding 'utf-8';
+
+use LWP::Simple;
+
+my $file = shift @ARGV || exit;
+my $list;
+
+open $list, "<$file" || exit;
+
+my ($url, $content);
+while ($url = <$list>) {
+    sleep 1;
+    chomp $url;
+    print STDERR "getting $url : ";
+    $content = get($url);
+    if (! $content) {
+        print STDERR "NG\n";
+        print "$url -> <NG>\n";
+        next;
+    }
+    print STDERR "OK\n";
+    if ($content =~ /<title>([^<]+)<\/title>/) {
+        my $title = $1;
+        print "$url -> $title\n";
+    }
+    else {
+        print "$url -> <?>\n";
+    }
+}