¾È³çÇϼ¼¿ä. ÇØÇÇ CGI À¥¸¶½ºÅÍ À±¿µ¿õÀÔ´Ï´Ù
°£´ÜÇÏ°Ô Áö±Ý Çѹø Â¥º¼±î¿ä? ^^
¾Æ·¡´Â html ºÎºÐÀÔ´Ï´Ù.
<form action=test.cgi method=post>
¸¸µé µð·ºÅ丮 : <input type=text name=dir>
</form>
¾Æ·¡´Â test.cgi ³»¿ëÀÔ´Ï´Ù.
####################################################
#!/usr/bin/perl
unless ($ENV{CONTENT_LENGTH} eq "") {
read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
}

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($kname, $value) = split(/=/, $pair);
  $value =~ tr/ / /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $$kname = $value;
}
system("mkdir $dir");
print "content-type:text/html ";
print "$dir µð·ºÅ丮°¡ ¼º°øÀûÀ¸·Î ¸Í±Û¾î Á³½¿µÂ";
####################################################
°¨»çÇÕ´Ï´Ù.
ÁÁÀº ÇÏ·çµÇ¼¼¿ä