(サンプルなので、use strict とかそういうのはとりあえずなしで。)#!/usr/bin/perl print "Content-type: text/html\nRefresh: 0; URL=" .substr($ENV{PATH_INFO}.(($q=$ENV{QUERY_STRING})?"?$q":""),1)."\n\n";
http://example.com/r.cgi/http://blog.example.com/?d=080101 ↓ http://blog.example.com/?d=080101 http://example.com/r.cgi/http://blog.example.com/?d=080101#hoge ↓ http://blog.example.com/?d=080101
RewriteEngine on RedirectMatch redirect/(.*) $1
http://example.com/redirect/http://blog.example.com/?d=080101 ↓ http://blog.example.com/?d=080101
★★★★サンクスギビングは秋の収穫に感謝する日。
ターキ(七面鳥)や、マッシュポテト、パンプキンパイでお祝いします。
Lawry'sでは2日間限定で特別ディナーを御用意いたします!★★★
ターキー 1羽 22,000円
ターキー1羽 5〜6名様分です。
団体様にオススメです。サラダセット(サラダとマッシュドポテト\1,500)
を人数分ご注文頂きます。