perl/script/りだいれくたー
提供: dsk's note
< perl
2015年3月31日 (火) 14:10時点におけるDsk (トーク | 投稿記録)による版 (ページの作成:「<syntaxhighlight lang="perl"> #! /usr/bin/perl # # りだいれくたー # # 使用方法 # r.cgi?転送先URL で呼び出す # my $url = $ENV{QUERY_STRING} || 'http:...」)
#! /usr/bin/perl # # りだいれくたー # # 使用方法 # r.cgi?転送先URL で呼び出す # my $url = $ENV{QUERY_STRING} || 'http://$ENV{SERVER_NAME}/'; $url =~ s/&/&/g; $url =~ s/</</g; $url =~ s/>/>/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
