Á¦°¡ § ¼Ò½º¶ó ´Ù¸¥°Ô ÀÖ³ª¿ä?

¶È°°Àºµ¥¿ä -_-;;;;

ÀÌ·¸°Ô Çصµ ¾ÈµÇ´øµ¥¿ä Èæ..

    my $input;
    my $method = $ENV{'REQUEST_METHOD'};

    if ($method eq 'POST')
    {
        binmode(STDIN);
        read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
    }
    else
    {
        $input = $ENV{'QUERY_STRING'};
    }

    my $pair;
    my($key, $val, %in);
    foreach $pair (split /&/, $input) {
            $pair =~s/\+/ /g;
            ($key, $val) = split(/=/, $pair, 2);

            $key =~ s/%(..)/pack("H2",$1)/ge;
            $val =~ s/%(..)/pack("H2",$1)/ge;

            $in{$key} =$val;
}

my $msg_id =$in{'msg_id'};