■

ゆの人が模範解答を示してくれたので答え合わせです

おもしろadminに消されたかものおれの謎改造はこんな感じでした

原理は一緒ですね^^

		$<a class="keyword" href="http://d.hatena.ne.jp/keyword/uri">uri</a>=~/^ayu(\d+)\..*$/;
		my $posted=$1;
		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($posted+9*60*60);
		$mon++;
		$year += 1900;
		$wday = ('日','月','火','水','木','金','土')[$wday];
		$posted = sprintf( "$year/%02d/%02d($wday)%02d:%02d:%02d",$mon,$mday,$hour,$min,$sec);
		$r = $<a class="keyword" href="http://d.hatena.ne.jp/keyword/uri">uri</a> = qq'<a href="/bbs.<a class="keyword" href="http://d.hatena.ne.jp/keyword/cgi">cgi</a>?res=$posted" title="related <a class="keyword" href="http://d.hatena.ne.jp/keyword/URI">URI</a>">$text</a>';

#コメント欄にはコード書きがたいのでこっちに書いたよ
xmpはだめか。textareaはどうだろ

		$uri=~/^ayu(\d+)\..*$/;
		my $posted=$1;
		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($posted+9*60*60);
		$mon++;
		$year += 1900;
		$wday = ('日','月','火','水','木','金','土')[$wday];
		$posted = sprintf( "$year/%02d/%02d($wday)%02d:%02d:%02d",$mon,$mday,$hour,$min,$sec);
		$r = $uri = qq'<a href="/bbs.cgi?res=$posted" title="related URI">$text</a>';
おお、うまくいったようだヽ(´ー｀)ノ