내가 HTTP POST 나에게 전송되는 XML 문서가 펄

Question

에 HTTP POST를 통해 전송 된 XML 문서 수신 :

<?xml version="1.0" encoding="UTF-8" ?> 
    <DeliveryNotification eventType="newMessage"> 
    <requestUid>sms9676187</requestUid> 
    <sentMessageUid>sms29282896</sentMessageUid> 
    .... 
    </DeliveryNotification> 

내가 다음 PARAM를 사용하여 펄 스크립트에 receieve을() 서브 루틴 :

나는 결과를 덤퍼 때

#!/usr/bin/perl -w 
use strict; 
use CGI qw/param/; 
use Data::Dumper; 

my @xml = param(); 
warn Dumper(@xml); 

와 나는 얻을 :이 실행될 때마다

는

$VAR1 = '<?xml version'; 

'='시에 파일을 깰 것으로 보인다 gn. 테스트 할 첫 번째 eqauls 기호를 제거하면 다음 번에 깨지기 시작합니다. 이것은 equals를 이스케이프 처리하여 데이터를 보내는 쪽에서 만 해결할 수 있습니까? 아니면 Perl에서 할 수 있습니까?

Answer 1

:

#!env perl 
use CGI qw(:standard); 
use Data::Dumper; 
my @xml = param(); 
warn Dumper(@xml); 

param()을 매개 변수의 URL 인코딩 목록에서 기대 URL 인코딩 및 HTTP POST에 대한 추가 정보를 원하시면

은 보라 쿼리 문자열 (GET 또는 POST) 및 목록 컨텍스트에서 매개 변수의 이름을 반환합니다.

쿼리 문자열의 원시 데이터를 원하는 경우 (양식 데이터를 처리하지 않을 것으로 예상되는 경우) query_string()을 사용하고 대신 GET 요청을 통해 XML을 전송하십시오.

You can read the raw POST data via STDIN without using CGI, but there are caveats.

Answer 2

많은 코드를 제공하지 않으므로 문제가 무엇인지 추측 할 수 있습니다. 나는 문제를 보내는 측에서 '추측하고있다'. HTTP POST의 모든 데이터는 URL 인코딩되어야합니다. 그리고 '='는 문제가 될 수있는 인코딩해야하는 안전하지 않은 문자입니다. 스크립트 같은 것을 보인다 내가 그것을 가지고 enter link description here

Answer 3

사용 param('POSTDATA').

#!/usr/bin/perl -T 
use strict; 
use warnings FATAL => 'all'; 
use CGI qw(); 
my $cgi = CGI->new; 
my $xml = $cgi->param('POSTDATA');