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();