WWW::Google::SiteMap::Robot

ほとんど進捗がないのですが、こんな感じでそれっぽいxmlができました。

もう、podに書いている例そのまんまですが、http://example.com/track/〜〜 はサイトマップに載せないようにしています。

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Google::SiteMap::Robot;

my $param = {
    domain         => 'example.com',
    restrict       => sub{ return $_[0] =~ m/^\w+:\/\/[^\/]+\/track\// },
    sitemap_file   => "/tmp/googlesitemaps/sitemap.xml",
    starting_url   => ['/'],
};

my $robot = WWW::Google::SiteMap::Robot->new(%$param);
$robot->run();
$robot->write_sitemap();