|
- HTTP$B%Z!<%8$r@8@.$9$k%=!<%9(B
- #!/usr/bin/perl $B@k8@$H(Bprint$B!$(Bexit$B%3%^%s%I!$2~9T%3!<%I!J(B\n$B!K!$%G%j%_%?!J(B;$B!K(B
- xyzzy$B$r;H$C$F!$
$B9T(B |
Perl$B$N%=!<%9(B |
$B%V%i%&%6$G$NI=<((B |
$B%=!<%9$NI=<((B |
1
2
3
4
5
6
7
8
9
10
11 |
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head><title>CGI-TEST</title></head>\n";
print "<body>\n";
print "$BEj9F$"$j$,$H$&(B\n";
print "</body>\n";
print "</html>";
exit 0; |
$BEj9F$"$j$,$H$&(B |
<html>
<head><title>CGI-TEST</title></head>
<body>
$BEj9F$"$j$,$H$&(B
</body>
</html> |
$B"#%=!<%9$N2r@b(B
#!/usr/bin/perl |
Perl$B$H$$$&%W%m%0%i%`$,$*$$$F$"$k>l=j$N;XDj(B |
print |
$BI8=`=PNO!J0lHL$K$O2hLL!K$K(B""$B$G0O$^$l$?FbMF$r=PNO$9$k%3%^%s%I(B |
\n |
$B2~9T$r0UL#$9$k%3!<%I(B |
;$B!J%;%_%3%m%s!K(B |
$B#1$D$N%3%^%s%I$,=*N;$9$k$4$H$K6h@Z$j%3!<%I$H$7$F$$$l$k(B |
exit |
Perl$B$r=*N;$9$k%3%^%s%I!%(B"0"$B$OL5;v$K=*N;$7$?$3$H$r0UL#$9$kLa$jCM(B |
3$B9TL\(B |
HTML$B%Z!<%8$r:n$k$H$-$K!$I,$:I,MW$J@k8@(B |
- $BJ]B8$N:]$NCm0U(B$B!Z:G=EMW![(B
- CGI$B%"%W%j%1!<%7%g%s$rJ]B8$9$k:]$O!$(B$B2~9T%3!<%I$r(BUNIX$BMQ(B$B$K;XDj$7$^$9!%(B
$B
$B!Z%U%!%$%k%a%K%e!A0$rIU$1$FJ]B8![$H3+$/!%(B
$B8=$l$?!ZL>A0$rIU$1$FJ]B8![2hLL$G!$J]B8>l=j$r(Bweb_local$B$N(Bcgi-bin$B$K;XDj!%(B
$B%U%!%$%kL>$r(Bmkhtml.cgi$B$K$9$k!%(B
$B2~9T%3!<%I$r(BUNIX$B2~9T%3!<%I$N(BLF$B$K;XDj$9$k!%(B$B2<$N?^$r;29M!%(B

$B!ZJ]B8  
|
|