perl에서 XML을 사용하는 POST 요청

Question

이제 콘텐츠 유형을 사용할 수 없게됩니다. 워크 플로의 실제 요약 또는 시나리오는 다음과 같습니다. 워크 플로가 더 정확해야 정확성을 설명 할 수 있습니다.

내가 뭘 잘못하고 있는지 제안하십시오.

use LWP::UserAgent; 
use HTTP::Request::Common; 
my $sendXML="INPUT.XML"; 
my $resultXML="RESULT.XML"; 
my $message = <<'XML'; 
<criteria> 
<includeFilterSets> 
     <filterSet> 
      <filter> 
       <filterName>PRODUCT_NAME</filterName> 
       </filterSet> 
    </excludeFilterSets> 
    </entityToSearch> 
<criteria> 
XML 

my $webpage="http://example.com/"; 
#my $webpage = HTTP::Request->new(GET => 'http/Testlocation'); 
my $ua = LWP::UserAgent->new; 
my $response = $ua->post($webpage, Content_Type => 'text/xml', Content => $message); 
if ($response->is_success) { 
    print $response->decoded_content; # or whatever 
} 
else { 
    #die $response->status_line; 
    print $response->decoded_content; 

} 

Answer 1

당신은 inifinte 루프를 만들었습니다. 그것이 메모리 부족 경고가 나오는 곳입니다.

my $message="test"; 
open(XML,$sendXML); 
while (" 
    <includeFilterSets> 
     <filterSet> 
      <filter> 
       <filterName>VERSION_NAME</filterName> 
       <operator> 
        <name>In</name> 
       </operator> 
       <value>10.0u</value> 
       </filter> 
     </filterSet> 
    </includeFilterSets>") { 
} 
close XML; 

나는 이걸 가지고 무엇을 달성하고 싶은지 모르지만, 당신이하고 싶은 것이 아닙니다. 이 조각은은 다음을

• 이
• 가 $sendXML에서 파일 이름에 파일 핸들을 열
'시험'에 $test을 설정가
• 는만큼 XML 조각이 true 인 (아무것도하지 않고이 항상 사실이다 따라서 무한 루프)
• close에 도달하지 않습니다.

나머지 코드는 괜찮습니다.

원하는 것은 무엇입니까? 나는 filehandle 물건을 버렸습니다.

my $message = <<'XML'; 
<includeFilterSets> 
     <filterSet> 
      <filter> 
       <filterName>VERSION_NAME</filterName> 
       <operator> 
        <name>In</name> 
       </operator> 
       <value>10.0u</value> 
      </filter> 
    </filterSet> 
</includeFilterSets> 
XML 

my $webpage="http://example.com/"; 
my $ua = LWP::UserAgent->new; 
my $response = $ua->post($webpage, Content_Type => 'text/xml', Content => $message); 
if ($response->is_success) { 
    print $response->decoded_content; # or whatever 
} 
else { 
    die $response->status_line; 
} 

조언

---

한 단어

: 항상 use strict 및 use warnings, 3-인수가 열리고 어휘 파일 핸들 봐. 이것은 당신의 인생을 훨씬 쉽게 만들어 줄 것입니다.