Query 획득 방법

ㆍ언어대상 : Perl   ㆍ작성자 : 김민석  

if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}else{
    $buffer = $ENV{'QUERY_STRING'};
}
if ($buffer eq "") {
   exit;
}
@pairs = split(/&/,$buffer);

foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
     # 이안에서 $name 과 $value 로 접근 가능함.
     # 한글 변환시에는 다음처럼 코드 삽입
     $name =~ tr/+/ /;
     $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     $value =~ tr/+/ /;
     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     if (!($value =~ /\n/) && $value =~ /\r/) { $value =~ s/\r/\n/g; }
 
}

해당 내용은 (주)데브존의 웹봇이 자동으로 저희 홈페이지와 API로 동기화한 내용입니다. 자세한 내용은 홈페이지 http://www.devzone.co.kr 또는 모바일 폰에서 http://devzone.co.kr을 접속 하여 확인해 보시기 비랍니다.
-  대표 전화 : 02) 2061 - 0753   - Fax : 02) 2061 - 0759   - Skype : devzone24
-  주소 : 서울특별시 양천구 목1동 923-14. 현대드림타워 1024호
-  기술 문의: 02) 2061-1259 김민석 기술이사