2011-12-14 13 views
0

REST::Client perlモジュールを使用してRESTサーバーをテストしています。私は私が使用している現在REST ::クライアントモジュールのresponseXpath()の内容を印刷するには

通常のXMLとしてREST応答を印刷したい1行でXMLを出力します

print $client->responseContent() 

<?xml version="1.0" encoding="UTF-8" standalone="yes"?><ns2:messageReference xmlns:ns2="urn:com:test:xml:rest:mds:1"><messageId>775775</messageId></ns2:messageReference> 

REST::Clientモジュールはまた、本文の内容のXPathコンテキストを返します。 $client->responseXpath()によって、私はそれを使用する方法を見つけることができません機能からXML::LibXML、それは私が望むように印刷することができます:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
    <ns2:messageReference xmlns:ns2="urn:com:test:xml:rest:mds:1"> 
    <messageId>775775</messageId> 
    </ns2:messageReference> 

答えて

1

ます。$ client-> responseContent()であるとして、あなたはそれがXMLを使用美化したい場合は、応答を出力::のlibxml

my $dom = XML::LibXML->load_xml(string => $client->responseContent()); 
print $dom->toString(); 
+0

私は次のエラーを取得する:オブジェクトのメソッドを見つけることができません"XML :: LibXML"というパッケージを使って "load_xml"を.... –

+0

私は別の方法でソリューションを実装しました。\t my $ parser = XML :: LibXML-> new(); \t my $ doc = $ parser-> parse_string($ client-> responseContent()); \t印刷 "\ n" $ doc-> toString(1); –

関連する問題