You could use XML::MyXML for this job (works well), if you know the
exact position in the XML tree where <message> is located.
Say $xml holds your XML.
Then:
use XML::MyXML qw(:all);
$obj = &xml_to_object($xml)
$msg_obj =
$obj->path('response/idalertresponse/candidateresults/candidateactivity/messaging/raiserisklevel/message');
$message = $msg_obj->value();
print $message;
Mike Blezien wrote:
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
