#!/usr/bin/perl -W # my web site mapper # for my special Chinese+English / English site # Copyright : http://www.fsf.org/copyleft/gpl.html # Author : Dan Jacobson -- http://jidanni.org/ # Created On : Thu Jul 24 07:36:30 2003 # Last Modified On: Mon Dec 3 02:17:56 2007 # Update Count : 228 use strict; require HTML::HeadParser; my $title="積丹尼的網站索引 Dan Jacobson's site map"; my $url='http://jidanni.org/'; print < $title

$title

$url as of EOF $_=`date '+%F %R %z'`; chomp; print "$_; no images listed.

\n
\n
"; binmode(STDOUT, ":utf8"); #place earlier, and the above UTF8 becomes gibberish #place later, and the below UTF8 becomes gibberish. why? for(`find * -type f|sort`){ chomp; if (/([_-]en\.html|\.jpg|\.png|\.gif)$/){next} if (m@^(dyy/direct|robots|test/| (missing|forbidden|internal_error)\.html)@x) {next}#exclusions print qq!
$_
\n!; if (/\.html$/) { open(my $fh, "<:utf8", $_) || die; my $p = HTML::HeadParser->new; $p->parse_file($fh); print "
", $p->header('Title'), "
\n"; close($fh)}} print "
";