NAME
Convert::PerlRef2String - Perl extension for converting PERL reference object to compressed string and vice versa
SYNOPSIS
The following script
use Convert::PerlRef2String;
use Convert::PerlRef2String;
use Data::Dumper;
my $perl = {
'Order' => {
'BookName' => 'Programming Web Serivices with Perl',
'Id' => '0-596-00206-8',
'Quantity' => '500'
},
'Payment' => {
'CardType' => 'VISA',
'ValidDate' => '12-10-2006',
'CardNo' => '1234-5678-9012-3456',
'Name' => 'Kai Li'
}
};
my $string = perlref2string($perl);
print $string,"\n";
my $perlref = string2perlref($string);
print Dumper($perlref);
will produce
H4sIAAAAAAAAA32QTQuCQBCG7/6KOQR7aWHUtCIKrC5SmH1g5y2XWkqNbSsk/O9Z2Rekc5x9nndn
phY4Mx26cNXgXWQiQy4JdHs/7Z8i/STZeSziD4z4MtlIFkUi3sCSr2DOpTiLNT/CRagt+FzuSb00
yw2fKUittk0RDbRpq4KfnlishEqfloVI/qPZdwTxWRrxWFXvlXMDJsNFeig2C9y5Uz5KjgdsL8Ih
UwWvG1RHaiDaldb9Ey95KWaDWnazRduY62bDqnY/Zx8xAWNBytjs/ZB1tBsqjca86gEAAA==
$VAR1 = {
'Order' => {
'BookName' => 'Programming Web Serivices with Perl',
'Id' => '0-596-00206-8',
'Quantity' => '500'
},
'Payment' => {
'CardType' => 'VISA',
'ValidDate' => '12-10-2006',
'CardNo' => '1234-5678-9012-3456',
'Name' => 'Kai Li'
}
};
DESCRIPTION
This is a handy tool for who wants to send PERL reference objects over the Internet as compressed strings. When both the sender and receiver are PERL programs you can use this tool as an alternative to exchanging XML files.
EXPORT
perlref2string and string2perlref.
AUTHOR
Kai Li, <kaili@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2005 by Kai Li
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.