Re^3: Fastest data structure compare?


We don't bite newbies here... much
	PerlMonks

Re^3: Fastest data structure compare?

by eserte (Deacon)

on Oct 08, 2009 at 12:43 UTC ( [id://799948]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Fastest data structure compare?
in thread Fastest data structure compare?

Encode may help in the utf8 case, but not in the case of different integer representation (as mentioned in the Storable manpage):

#!/usr/bin/perl

use Data::Compare qw();
use Storable qw(nfreeze);
use Test::More qw(no_plan);

my $data1 = { foobar => 1 };
my $data2 = { foobar => "1" };

$Storable::canonical = 1;

is_deeply($data1, $data2, "is_deeply test");
ok(Data::Compare::Compare($data1, $data2), "Data::Compare");
ok(nfreeze($data1) eq nfreeze($data2), "storable serialized");
[download]