🚀 go-pugleaf

$B$+$H$&$H$$$$$^$9!#(B

>> $B;d$N4D6-!J(BNT4.0Server$B!\(BIIS$B!\(BPerl for Win32 (build:313)$B$G$b(B
>> print"Location:URL"
>> $B$,$&$^$/F0$-$^$;$s!#%V%i%&%6$K(BURL$B$,$=$N$^$^=PNO$5$l$k$@$1$G$9!#(B
>> PIISi313.exe PISEi313.exe Pw32i313.exe $B$r%$%s%9%H!<%k$7$^$7$?!#(B

http://www.bekkoame.or.jp/~syunji/perl/faq/Perl_for_Win32_FAQ_7j.html#7_7

$B$H$$$&$H$3$m$K%:%P%j$=$NEz$,$"$j$^$9!#(B
$B>!<j$J$,$i0zMQ$7$A$c$$$^$9!#(B

====================================================================
7.7. $B;d$N%9%/%j%W%H$G%j%@%$%l%/%7%g%s$r;H$&$K$O$I$&$7$?$i$$$$$N(B
$B$G$7$g$&$+!)(B 

$B!!IaDL%f!<%6!<$K8+$($J$$$d$jJ}$G%/%i%$%"%s%H$N%V%i%&%6$rJL$N%U(B
$B%!%$%k$d%9%/%j%W%H$K?6$j8~$1$k$N$K!"%j%@%$%l%/%7%g%s$r;H$&$3$H(B
$B$,=PMh$^$9!#(B $B$=$l$K$O(B Location$B%X%C%@$,I,MW$G!"$^$?$"$J$?$,(B PerlIS $B$r(B
$B;H$C$F$$$k$N$@$C$?$i!"F1$8$/FCJL$N(BHTTP$B%3!<%I$,I,MW$G$9!#<!$N%3(B
$B!<%I$O%V%i%&%6$r$"$k%F%-%9%H%U%!%$%k$X?6$j8~$1$^$9!#(B 

    print "HTTP/1.0 303 See Other\r\n" if $ENV{PERLXS} eq "PerlIS";
    print <<"END";
    Content-Type: text/plain
    Location: /text/mytextfile.txt
    END


$B!!Cm0U!#$b$7(B CGI(perl.exe)$B$,;H$o$l$F$$$k$J$i!"%5!<%P$,$=$N%m%1!<%7(B
$B%g%s$rC5$7=P$7$F;}$C$F$-$F%V%i%&%6$KAw$j$^$9$N$G!"%V%i%&%6$O$=(B
$B$NFbMF$O$"$J$?$N%9%/%j%W%H$N(B URL$B$+$i$N$b$N$@$H9M$($^$9!#(BPerlIS $B$,(B
$B;H$o$l$F$$$k$J$i!"%V%i%&%6$O<+J,$G$=$l$r;}$C$FMh$J$/$F$O$J$i$:(B
$B!"%j%@%$%l%/%H$5$l$?@h$N%j%=!<%9$N(B URL$B$O%f!<%6$KI=<($5$l$k$H$$(B
$B$&$3$H$K$J$j$^$9!#(B 

$B!!$"$J$?$,(B PerlIS $B$r;H$C$F$$$k$N$@$C$?$i!"(BHTTP status codes 301 (Moved
Permanently), 302 (Moved Temporarily), 303 (See Other)$B$r%A%'%C%/$7$F!"(B
$B$=$N$I$l$,$"$J$?$N%"%W%j%1!<%7%g%s$K$b$C$H$bE,@Z$+M}2r$9$Y$-$G$9!#(B 
==================================================================

http://www.bekkoame.or.jp/~syunji/perl/perlindx.html

$B$H$$$&%Z!<%8$+$iC)$l$P!"$3$N<j$N>pJs$O$?$$$F$$(B
$BF~<j$G$-$^$9!#$\$/$b$$$D$b$*@$OC$K$J$C$F$$$^$9!#(B