Since the structure of the XML output is not so complicated and
massive, you might want to try with the Perl Module "XML::Smart":
http://search.cpan.org/~gmpassos/XML-Smart-1.6.9/lib/XML/Smart.pm
On 4/11/11, Rajpreet <rajpreetsi...@gmail.com> wrote:
> Greetings,
>
> Requirement goes like this. I have perl script reading from a MQ
> Series queue. This queue has messages in form of XML.For exmpale
> 1 message is like -
> <CLIENT_INFO>
> <LOCATION>
> New York
> </LOCATION>
> <FIELD>
> FINANCE GROUP
> </FIELD>
> <NO_OF_WORKERS>
> 123
> </NO_OF_WORKERS>
> <CLIENT_INFO>
>
>
> My perl script reads messgaes from this queue, and drops them to
> another queue after creating a backup in a text file. My requirement
> is I have check the value of a particular tag for example, value of
> <FIELD>, if that is say "FINANCE GROUP", I have to change it to
> "FINANCIAL SYSTEMS" and then drop to the other queue. I tried below,
> but for some reason it did not work. COuld you please help.
>
> Sample of my script -
>
>
> # Connect to qmgr
> $qmgr = MQSeries::QueueManager->new ( QueueManager => $hOpts{m},
> AutoConnect => 0)
> or die "Unable to instantiate MQSeries::QueueManager object
> \n";
>
> $qmgr->Connect() or die("Unable to connect to queue manager\n" .
> "CompCode => " . $qmgr->CompCode() . "\n" . "Reason => " .
> $qmgr->Reason() . " (", MQReasonToText($qmgr->Reason()) . ")\n");
>
> # open input and output queues
> my $qIn =MQSeries::Queue->new(QueueManager => $qmgr, Queue =>
> $hOpts{i}, Options=>MQSeries::MQOO_INPUT_SHARED )
> or die "Unable to open queue $hOpts{i}" ;
>
> my $qOut=MQSeries::Queue->new ( QueueManager => $qmgr, Queue =>
> $hOpts{o}, Options=>MQSeries::MQOO_OUTPUT | MQSeries::MQPMO_S
> ET_ALL_CONTEXT )
> or die "Unable to open queue $hOpts{o}" ;
>
> until( $time_to_die )
> {
> my $message = MQSeries::Message-
>>new(MsgDesc=>{Persistence=>1});
>
> # Get message from queue
> $result = $qIn->Get( Message => $message, Sync=>1,
> Wait=>-1 );
> my $msgDescRef = $message->MsgDesc;
> my $data = $message->Data;
> my $field_name = GetXMLValue($data, "FIELD");
> if ($field_name eq 'FINANCE GROUP')
> {
>
> $field_name = 'FINANCIAL SYSTEMS';
>
> $msgDescRef->{"FIELD"} = $field_name ;
> }
> for(1..$num_retries) {
> $result = $qOut->Put( Message => $message, Sync => 1,
> PutMsgOpts
> =>{ Options=>MQSeries::MQPMO_SET_ALL_CONTEXT ||
>
> MQSeries::MQPMO_FAIL_IF_QUIESCING});
> if ($result > 0) { last; }
>
> sleep $time_to_wait;
> }
>
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
