read(STDIN, $buffer, $ENV{ CONTENT_LENGTH }); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/ / /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } ÀÌ ¼Ò½º ¼³¸í ÇØÁÖ»ç¿ä???? ÇØÇÇcgi´Ô ºÎŹµå·Á¿ä?? Á¦°¡ Á¦¤ÓÀÏ ÀÌÇØ°¡ ¾È°¡´Â ºÎºÐÀº @pairs°¡ ¾îµð¼ ³ª¿Â °ÇÁö ¶Ç $pairÀº ¾îµð¼ ¿Â°ÇÁö °¥ÃÄ ÁÖ»ç¿ä? ºÎŹµå¸³´Ï´Ù..........¾È°¥ÃÄ ÁÖ¸é Àü ¹°¾î º¼¶§µÎ ¾ø¾î¿ä? Á¦¹ß °¥ÃÄ ÁÖ»ç¿ä???? ±×·³... ÁÁÀº ÇÏ·ç µÇ¼¼¿ä????? Ã߽Š¹«ÁöÇÏ°Ô ½¬¿î ¹æ¹ýÀ¸·Î °¥ÃÄ ÁÖ»ç¿ä?
|