generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-20 13:33:51 +01:00
Code Issues Projects Releases Wiki Activity

Perl: display original data

Browse Source
This commit is contained in:
Tokuhiro Matsuno 2009-07-30 13:24:38 +09:00
parent 0fe79a7752
commit 3275eee281
1 changed files with 14 additions and 10 deletions

24
perl/benchmark/size.pl

@ -6,20 +6,24 @@ use Storable;
use Text::SimpleTable; use Text::SimpleTable;
my @entries = ( my @entries = (
1, '1',
3.14, '3.14',
{}, '{}',
[], '[]',
[('a')x10], "[('a')x10]",
{('a')x10}, "{('a')x10}",
+{1,+{1,+{}}}, "+{1,+{1,+{}}}",
+[+[+[]]], "+[+[+[]]]",
); );
my $table = Text::SimpleTable->new([10, 'storable'], [10, 'msgpack']); my $table = Text::SimpleTable->new([15, 'src'], [9, 'storable'], [7, 'msgpack']);
for my $src (@entries) {
my $e = eval $src;
die $@ if $@;
for my $e (@entries) {
$table->row( $table->row(
$src,
length(Storable::nfreeze(ref $e ? $e : \$e)), length(Storable::nfreeze(ref $e ? $e : \$e)),
length(Data::MessagePack->pack($e)), length(Data::MessagePack->pack($e)),
); );