use strict; use Frontier::RPC2; use Data::Dumper; my $coder = Frontier::RPC2->new; my $xml_string="<?xml version=\"1.0\" encoding=\"UTF-8\"?> <methodCall> <methodName>Refill</methodName> <params> <param> <value> <struct> <member> <name>originHostName</name> <value> <string>host</string> </value> </member> <member> <name>originNodeType</name> <value> <string>EXT</string> </value> </member> <member> <name>voucherActivationCode</name> <value> <string>39393939393</string> </value> </member> <member> <name>subscriberNumberNAI</name> <value><i4>2</i4></value> </member> </struct> </value> </param> </params> </methodCall> "; my $key; my $value; my $call = $coder->decode($xml_string); my %coins = Dumper($call);#->{'value'}->{'originHostName'}; print $coins{'originHostName'};
In reply to HASH problem by masil
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |