¿µÀÚ´Ô²²¼ °¡¸£ÃÄ ÁֽŠpostÀü¼Û¼Ò½º¿ä..
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/%()/pack("C", hex($1))/eg;
$$kname = $value;
}
¿ä°Å.. ±Ùµ¥ ÇѱÛÀ̶û Ư¼ö¹®ÀÚ´Â ÀÌ»óÇÏ°Ô°¡³×¿ä
±×¸®°í ÇÑÁÙÀÌ ¾Æ´Ï°í ¸ÖƼ¶óÀÎ.. ¿©·¯ÁÙÀº ÇÑÁÙ¹Û¿¡ ¾È°¡±¸¿ä
¿µ¾î¶û ¼ýÀÚ´Â Àß°¡´Âµ¥
/
¶óµç°¡ ÇѱÛÀº ¾Æ¿¹°£°¨´Ï´ç
´Ù°¡°Ô ÇÒ¼ö´Â ¾÷´Â°Ç°¡¿ä
|