Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^3: Accessing Attributes in Web Servie message - Server Side

by poj (Abbot)
on Feb 18, 2016 at 16:34 UTC ( [id://1155564]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Accessing Attributes in Web Servie message - Server Side
in thread Accessing Attributes in Web Servie message - Server Side

What is the structure of $data if you use Dumper

use Data::Dumper; sub sendMsg2ABC { my($class,$data)=@_; print Dumper $data;
poj

Replies are listed 'Best First'.
Re^4: Accessing Attributes in Web Servie message - Server Side
by gackles (Novice) on Feb 18, 2016 at 19:10 UTC

    Thank you. Even Dumper doesn't show me the attributes. I have Wireshark monitoring the incoming messages and there I do see the entire message coming in with the attributes. Here is the Dumper result:

    $VAR1 = { 'Request_Id' => '999999', 'Section' => [ { 'Entity' => [ '', '', '', '', '', '', '', '', '', '' ] }, { 'Entity' => [ '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '' ] }, { 'Entity' => [ '', '', '', '' ] } ], 'RequestType' => 'CHANGE', 'RequestStatus' => 'PENDING', 'VtacContactPhone' => '555-555-5555', 'Action' => 'APPROVE', 'VtacContactName' => 'CYNTHIA', 'NegotiatorPhone' => '555-555-5555', 'IssuedDate' => '12/10/2015 09:29:02 AM', 'NegotiatorName' => 'MICHELLE' };

      If you want to parse the XML then XML::Twig is one option

      #!perl use strict; use warnings; use XML::Twig; use Data::Dumper; my $xml = do{local $/;<DATA>}; my %data=(); my $t = XML::Twig->new( twig_handlers=> { Section => \&section }, ); $t->parse($xml); print Dumper \%data; sub section { my ($t,$e) = @_; my $type = $e->att('type'); for ($e->children('Entity')){ push @{$data{$type}},$_->atts; } }; __DATA__
      poj

        Thank you poj. Trying to determine where to apply your example. Would I make that the main web service? or you that be the module that my soap server dispatches to?

        If you want to parse the XML then XML::Twig is one option

        kinda goes against the idea of a SOAP server to have to parse XML yourself :)

Re^4: Accessing Attributes in Web Servie message - Server Side
by grasshopper!!! (Beadle) on Feb 20, 2016 at 21:47 UTC

    Try looking at HTML::Tree

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1155564]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (1)
As of 2024-04-25 00:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found