sub ParseReadQueryString {
$buffer = $ENV{
QUERY_STRING
};
@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;
$value =~ s/~!/ ~!/g;
$in{$name} = $value;
À§¿Í °°ÀÌÀִµ¥¿ä..¹Ù·Î¾Æ·¡ºÎºÐÀÌ  ¾î¶²±â´ÉÀ» ÇÏ´ÂÁö ¾Ë¼öÀÖ³ª¿ä
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
¼øÀ§»çÀÌÆ® ¼Ò½ºÀä..À̺κÐÀÌ °¡ÀÔÇÏ¸é ¾ÆÀ̵𸦠¸¸µé¾î ÁÖ´Â ºÎºÐ °°Àºµ¥¿ä.
°¡¿îµ¥ °¡·Î Ä£ ºÎºÐÀÌ ¹«½¼ °ø½ÄÀÌ ¸Â³ª¿ä.....¸Â´Ù¸é
¹øÈ£°¡ 1¹øºÎÅÍ ³ª¿À°Ô ÇØÁֽǼöÀÖÀ¾´Ï±î...
¾ÈµÇ½Å´Ù¸é ¾ÈµÈ´Ù°í ´äº¯¸¸ À̶óµÎ Á» ÇØÁÖ½Ã¸é °í¸¿°ÚÀ¾´Ï´Ù..