Perl XML::LibXML - Cannot replace Replace Element value -

XML फ़ाइल इस तरह दिखती है

  & lt;? Xml संस्करण = "1.0"? & gt; & Lt; एप्लिकेशन का नाम = "स्थिति" & gt; & Lt; artifact id = "example.war" प्रकार = "युद्ध" चक्र = "रिलीज़एक्स-स्प्रिंट 1" & gt; & LT; jira & gt; टिकटिक -1, टिकटिक -2, & lt; / jira & gt; & LT; जेनकींस & gt; http: // localhost: 0000 / हडसन & lt; / जेनकींस & gt; & LT; kportal / & gt; & LT; SCM & gt; & Lt; लेनदेन आईडी = "111" उपयोगकर्ता = "उपयोगकर्ता 1" & gt; & Lt; फ़ाइल नाम = "a / b / c / d.txt" / & gt; & Lt; फ़ाइल नाम = "x / y / z.xml" / & gt; & Lt; / लेन-देन & gt; & Lt; / SCM & gt; & Lt; / विरूपण साक्ष्य & gt; & Lt; / आवेदन & gt;  

मैं एक विशेष आर्टिफैक्ट नोड के लिए kportal नोड में एक मान जोड़ना चाहता हूं ताकि यह & lt; kportal & gt; क्वैनल-1 & lt; /

मेरा कोड ऐसा दिखता है

  मेरी $ manifestDoc = $ manifestFileParser-> parse_file ($ manifestFile); मेरी $ xpathKportal = qq (// आवेदन [\ @ नाम = "$ आवेदननाम"] / आर्टिफैक्ट [\ id = "$ artifactID"] / कॉपटल); मेरी $ newdeploymentNode = $ manifestDoc- & gt; खोजनोड ($ xpathKportal); $ NewdeploymentNode- & gt; removeChildNodes (); $ NewdeploymentNode- & gt; appendText ( 'KPORTAL -1');  

मुझे त्रुटि मिल रही है

  पैकेज "XML :: LibXML :: NodeList" के माध्यम से "removeChildNodes" ऑब्जेक्ट विधि नहीं ढूँढ सकता  

स्केलर संदर्भ में एक नोडईलिस्ट ऑब्जेक्ट देता है, लेकिन नोड्स की सूची सूची संदर्भ नोडलाइस्ट में removeChildNodes विधि नहीं है। सुझाए गए समाधान: सूची संदर्भ को बल देने के लिए = के बाईं ओर एक सूची का उपयोग करें।

  मेरी ($ new_deployment_node) = $ manifest_doc- & gt; खोजनोड (... );