「perl/script/りだいれくたー」の版間の差分

提供: dsk's note
移動: 案内検索
(ページの作成:「<syntaxhighlight lang="perl"> #! /usr/bin/perl # # りだいれくたー # # 使用方法 # r.cgi?転送先URL で呼び出す # my $url = $ENV{QUERY_STRING} || 'http:...」)
(相違点なし)

2015年3月31日 (火) 14:10時点における版

#! /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