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');