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

提供: dsk's note
移動: 案内、検索
(ページの作成:「<syntaxhighlight lang="perl"> #! /usr/bin/perl # # りだいれくたー # # 使用方法 # r.cgi?転送先URL で呼び出す # my $url = $ENV{QUERY_STRING} || 'http:...」)
 
細
 
2行目: 2行目:
  
 
#! /usr/bin/perl
 
#! /usr/bin/perl
−
#
 
−
# りだいれくたー
 
−
#
 
−
# 使用方法
 
 
#  r.cgi?転送先URL で呼び出す
 
#  r.cgi?転送先URL で呼び出す
−
#
+
 
 
my $url = $ENV{QUERY_STRING} || 'http://$ENV{SERVER_NAME}/';
 
my $url = $ENV{QUERY_STRING} || 'http://$ENV{SERVER_NAME}/';
 
$url =~ s/&/&amp;/g;
 
$url =~ s/&/&amp;/g;
28行目: 24行目:
 
_EOF
 
_EOF
 
</syntaxhighlight>
 
</syntaxhighlight>
 +
 +
[[Category: perl]]

2015年4月8日 (水) 16:34時点における最新版

#! /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
「http://dsktnk.sakura.ne.jp/mw/index.php?title=perl/script/りだいれくたー&oldid=1714」から取得