Re^2: Accessing Attributes in Web Servie message

Here is my SOAP server:

#!/usr/bin/perl

use strict;
use SOAP::Transport::HTTP;
use lib '/var/www/soap';
use vbsservice;

my $server = SOAP::Transport::HTTP::CGI
      ->dispatch_to('sendMsg2ABC')
      ->handle;
1;
[download]

Here is the vbsservice module:

#!/usr/local/bin/perl

package vbsservice;
use Switch;
use warnings;
use Exporter;
our @ISA = (Exporter);
our @EXPORT = qw(sendMsg2ABC);

sub sendMsg2ABC {

        my($class,$data)=@_;

...
[download]

$data is a hash ref that I've parsed all sorts of ways but I'm never able to get to the attributes of the incoming message. I can easily parse the key/values from any tag/element entries of the message but not the attributes. One thing I'm trying now is the dataof method but I haven't been able to get that to work. As a note, I cannot change the way the message is coming in. That's out of my control. Thank you again for any help.

Comment on Re^2: Accessing Attributes in Web Servie message - Server Side Select or Download Code

Replies are listed 'Best First'.
Re^3: Accessing Attributes in Web Servie message - Server Side by poj (Abbot) on Feb 18, 2016 at 16:34 UTC
What is the structure of $data if you use Dumper `use Data::Dumper; sub sendMsg2ABC { my($class,$data)=@_; print Dumper $data;` [download] poj	[reply] [d/l]
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' };` [download]	[reply] [d/l]
Re^5: Accessing Attributes in Web Servie message - Server Side by poj (Abbot) on Feb 18, 2016 at 19:38 UTC
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__` [download] Read more... (5 kB) poj	[reply] [d/l] [select]
Re^6: Accessing Attributes in Web Servie message - Server Side by gackles (Novice) on Feb 18, 2016 at 20:40 UTC
Re^7: Accessing Attributes in Web Servie message - Server Side by poj (Abbot) on Feb 29, 2016 at 18:41 UTC
Re^6: Accessing Attributes in Web Servie message - Server Side by Anonymous Monk on Feb 19, 2016 at 00:29 UTC
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	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

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