perl メモ

リダイレクト

# !/usr/bin/perl -w

# use CGI qw(:standard);
# use CGI qw(:standard -nph);

use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

# print CGI::redirect('http://yahoo.com/');

my $query = CGI->new();
# $query->nph(1);
print $query->redirect(-uri=>'http://yahoo.co.jp', -nph=>0, -status=>303);
# print $query->header(-charset=>'UTF-8');
# print $query->header(-location => 'http://yahoo.com/mizu');