>$a="¹«±ÃÈ­" ¸¦ $a = ¹«±ÃÈ­ ·Î ¹Ù²Ù¾î
>Áִ  subroutine¸¦ ã°í ÀÖ½À´Ï´Ù. parse¸¦
>¿ªÀ¸·ÎÇÏ´Â °Í ÀÔ´Ï´Ù. µµ¿Í ÁÖ½Ã¸é °¨»çÇÏ°Ú½À´Ï´Ù.
>
¾È³çÇϼ¼¿ä, Æ÷·³Áö±â °íÀç¿õ ÀÔ´Ï´Ù.
Perl¿¡¼­ °¡Àå ÈçÇÏ°Ô ÀÔ·Â µ¥ÀÌŸ¸¦ parsingÇÏ´Â °ÍÀº °ø°³¼Ò½º¿¡¼­ ¸¹ÀÌ º¸¼ÌÀ¸¸®¶ó »ý°¢µË´Ï´Ù.
if( $ENV{
REQUEST_METHOD
} eq "GET" ) {
$buffer = $ENV{
QUERY_STRING
};
}
else {
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;
}
À§ÀÇ ·çƾÀ» °ÅÄ¡¸é ÇѱÛÀÌ URL ÀÎÄÚµùÀÌ µË´Ï´Ù.
°¨»çÇÕ´Ï´Ù.