clkeitai.cgi に AdSense をつけたついでに，
google 向けケータイサイトマップ生成 script を書いてみた．
といっても，cli2sitemap.pl を書き換えただけ．
#!/usr/bin/perl
# usage
# perl cli2sitemap.pl cl.itemlist > sitemap.xml
use strict;
my %hash;
while (<>) {
$hash{$1} = $hash{$2} = $hash{$3} = 1
if (/^<a href=\"(((\d+-\d+)-\d+)-\d+)/);
}
my $xml;
foreach (sort keys %hash) {
if (length($_) > 10){
$xml .= << "URL"
<url>
<loc>http://www.ftnk.jp/~fumi/cl/clkeitai.cgi?date=$_</loc>
<mobile:mobile/>
</url>
URL
;
}
}
print << "XML"
<?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84"
xmlns:mobile="http://www.google.com/schemas/sitemap-mobile/1.0">
<url>
<loc>http://www.ftnk.jp/~fumi/cl/clkeitai.cgi</loc>
<mobile:mobile/>
</url>
$xml
</urlset>
XML
;