#!/usr/bin/perl --
#~ 2014-03-10-19:06:55 by Anonymous Monk
#~ perltidy -csc -otr -opr -ce -nibc -i=4
#!/usr/bin/perl --
use strict; use warnings;
use XML::Rules;
use XML::Simple qw/ XMLin /;
use Data::Dump qw/ dd /;
my $shortxmlraw = q{ };
my $xmlraw = q{
namecheap.domains.getList
4
1
50
API02
--5:00
0.008
};
my $xmlin = XML::Rules->new(
qw/ stripspaces 8 /,
rules => ## the result of xml2XMLRules foo.xml foo2.xml ....
{
'ApiResponse,CommandResponse,DomainGetListResult,Paging' => 'no content',
'Domain' => 'as array no content',
'CurrentPage,Errors,ExecutionTime,GMTTimeDifference,PageSize,RequestedCommand,Server,TotalItems,Warnings' => 'content'
},
);
my $res = $xmlin->parse( $xmlraw );
dd( $res );
#~ dd( XMLin( $xmlraw ) );
Shabba( $res->{ApiResponse} );
$res = $xmlin->parse( $shortxmlraw ) ;
dd( $res );
dd( XMLin( $shortxmlraw ) );
Shabba( $res->{ApiResponse} );
Shabba( XMLin( $shortxmlraw ) ); ## Not an ARRAY reference
#~ dd( $xmlin->parse( q{} ) );
exit( 0 );
sub Shabba {
my( $result ) = @_;
#~ foreach my $domain (@{$result->{ApiResponse}{CommandResponse}{DomainGetListResult}{Domain}}) {
foreach my $domain (@{$result->{CommandResponse}{DomainGetListResult}{Domain}}) {
printf "%s %s %s\n",
$domain->{Name},
$domain->{ID},
$domain->{Expires},
;;;;;;
}
}
__END__
{
ApiResponse => {
CommandResponse => {
DomainGetListResult => {
Domain => [
{ Expires => "03/31/2015", ID => 8888888, Name => "Domain1.com" },
{ Expires => "02/25/2015", ID => 8888889, Name => "Domain2.com" },
{ Expires => "04/01/2015", ID => 8888899, Name => "Domain3.com" },
{ Expires => "05/20/2015", ID => 8888999, Name => "Domain4.com" },
],
},
Paging => { CurrentPage => 1, PageSize => 50, TotalItems => 4 },
Type => "namecheap.domains.getList",
},
Errors => undef,
ExecutionTime => 0.008,
GMTTimeDifference => "--5:00",
RequestedCommand => "namecheap.domains.getList",
Server => "API02",
Status => "OK",
Warnings => undef,
xmlns => "http://api.namecheap.com/xml.response",
},
}
Domain1.com 8888888 03/31/2015
Domain2.com 8888889 02/25/2015
Domain3.com 8888899 04/01/2015
Domain4.com 8888999 05/20/2015
{
ApiResponse => {
CommandResponse => {
DomainGetListResult => {
Domain => [
{ Expires => "03/31/2015", ID => 8888888, Name => "Domain1.com" },
],
},
Type => "namecheap.domains.getList",
},
Status => "OK",
xmlns => "http://api.namecheap.com/xml.response",
},
}
{
CommandResponse => {
DomainGetListResult => {
Domain => { Expires => "03/31/2015", ID => 8888888, Name => "Domain1.com" },
},
Type => "namecheap.domains.getList",
},
Status => "OK",
xmlns => "http://api.namecheap.com/xml.response",
}
Domain1.com 8888888 03/31/2015
Not an ARRAY reference at xml-simple-to-xml-rules-1077492.pl line 63.