perl lwp表格發布

Question

我正在嘗試使用LWP將某些內容發布到托管服務，但我無法控制該托管服務，即我必須遵守其標准。

基本上，內容必須在類似於以下內容的帖子中進行瀏覽：

POST / HTTP/1.1
Accept:*/*
Content-Type: text/xml
[various other headers]

<?xml version="1.0" encoding="UTF-8"?>
<xmlContent>here</xmlContent>

我正在查看LWP文檔，其示例如下所示：

$response = $browser->post( $url,
   ['form' => '<?xml version="1.0" encoding="UTF-8"?><content>foobarbaz</content>'],
   'Content_Type' => 'text/xml', 
   'headerkey2' => 'hvalue2', 
 );

所以相反，我的數據像這樣遍歷：

[headers]

form=<?xml blah blah blah

我不要在那兒“ form =“。

我已經嘗試了一些解決方法，但最終還是沒有得到任何發送，或者最后沒有額外的“ =”符號。 似乎這應該很容易...有什么方法可以讓我的內容成為帖子的主體而沒有變量名？

除了使用LWP，我願意做其他事情，這只是我的出發點，因為我以前使用過它。

謝謝！

Answer 1

我認為您不需要表格：

  $req = HTTP::Request->new(POST => $url);
  $req->header("Content-Type" => "text/xml");
  $req->content(<<EOT);
  <?xml version="1.0" encoding="UTF-8"?>
  <xmlContent>here</xmlContent>
  EOT