#!/usr/bin/perl # usage: cli2sitemap-mobi.pl cl.itemlist > sitemap-mobi.xml use warnings; use strict; my %hash; while (<>) { $hash{$1} = 1 if (/^<a href=\"(\d+-\d+-\d+-\d+)/); } print << "XML" <?xml version="1.0" encoding="UTF-8"?> <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"> <url><loc>http://chalow.net/clkeitai.cgi</loc></url> @{[ map {"<url><loc>http://chalow.net/clkeitai.cgi?date=$_</loc></url>\n"} (reverse sort keys %hash) ]} </urlset> XML ;