perl/script/りだいれくたー

提供: dsk's note
< perl
2015年4月8日 (水) 16:34時点におけるDsk (トーク | 投稿記録)による版

(差分) ←前の版 | 最新版 (差分) | 次の版→ (差分)
移動: 案内検索
#! /usr/bin/perl
#   r.cgi?転送先URL で呼び出す
 
my $url = $ENV{QUERY_STRING} || 'http://$ENV{SERVER_NAME}/';
$url =~ s/&/&amp;/g;
$url =~ s/</&lt;/g;
$url =~ s/>/&gt;/g;
 
print <<_EOF;
Content-Type: text/html; charset=Shift_JIS
Content-Language: ja
 
<html>
<head>
<meta http-equiv="Refresh" content="0;URL=$url">
<title>$url</title>
</head>
<body>
$urlに転送されますしばらくお待ちください。
</body>
</html>
_EOF