Perl XML::Dumper - Revision history

Heth: /* The client side */

2009-03-22T10:16:32Z

‎The client side

Heth: /* The client side */

2009-03-22T10:16:00Z

‎The client side

Heth: /* The client side */

2009-03-22T10:15:46Z

‎The client side

Heth: New page: XML Dumper is simple and easy to use, yet it is very versatile. = Dumping hash'es = Had some problems dumping hashes trying to send the hash between a Server and Client, but it's really si...

2009-03-22T10:15:14Z

New page: XML Dumper is simple and easy to use, yet it is very versatile. = Dumping hash'es = Had some problems dumping hashes trying to send the hash between a Server and Client, but it's really si...

New page

XML Dumper is simple and easy to use, yet it is very versatile.
= Dumping hash'es =
Had some problems dumping hashes trying to send the hash between a Server and Client, but it's really simple enough.
== The server side ==
In this example I use XML::Dumper as an object.
<source lang="perl" line>
use XML::Dumper;
my $dump = new XML::Dumper;

my %clientorder = ( "LCnumber" => 7,
"LCsessions" => 10,
"loadServer" => "sun.tekkom.dk",
"loadPort" => 80);

$xml = $dump->pl2xml( \%clientorder );
print $xml;
</source>
prints the following
<source lang="xml">
<perldata>
<hashref memory_address="0x28452d0">
<item key="LCnumber">7</item>
<item key="LCsessions">10</item>
<item key="loadPort">80</item>
<item key="loadServer">sun.tekkom.dk</item>
</hashref>
</perldata>
</source>
I really don't know how to avoid the '''memory_address''', but I have to use the reference slash in line 9, because '''pl2xml''' only works on scalars.<br/>
Now send the entire XML output to the Client.
== The client side ==
In this example I use XML::Dumper as function calls.<br/>
''NOTE:'' Assuming the scalar '''$xml''' contains the xml output from the side, described above.
<source lang="perl" line>
use XML::Dumper;
my $c = xml2pl( $xml ); # Making a HASH reference
my %data=%$c; # Dereferencing the hash reference

foreach my $key(keys %data) {
print $key.":".$data{$key}."\n";
}
</source>
prints the following
<source lang="xml">
loadPort:80
LCsessions:10
LCnumber:7
loadServer:sun.tekkom.dk
</source>
I really don't know how to avoid the '''memory_address''', but I have to use the reference slash in line 9, because '''pl2xml''' only works on scalars.<br/>
Now send the entire XML output to the Client.
[[Category:Perl]]

@@ Line 48: / Line 48: @@
 loadServer:sun.tekkom.dk
 </source>
-I really don't know how to avoid the '''memory_address''', but I have to use the reference slash in line 9, because '''pl2xml''' only works on scalars.<br/>
+Thats it folks.
 [[Category:Perl]]

@@ Line 34: / Line 34: @@
 <source lang="perl" line>
 use XML::Dumper;
-my $c = xml2pl( $xml ); # Making a HASH reference
+my $c = xml2pl( $xml );    # Making a HASH reference
 my %data=%$c;              # Dereferencing the hash reference

@@ Line 31: / Line 31: @@
 == The client side ==
 In this example I use XML::Dumper as function calls.<br/>
-''NOTE:'' Assuming the scalar '''$xml''' contains the xml output from the side, described above.
+''NOTE:'' Assuming the scalar '''$xml''' contains the xml output from the server, described above.
 <source lang="perl" line>
 use XML::Dumper;