#!/usr/bin/perl -w use strict; use Storable; use Data::Dumper; my %junk = map { $_ => rand()} (1..50); my $before = Data::Dumper->Dump([%junk]); my $frozen = Storable::freeze(\%junk); my %thawed = %{Storable::thaw($frozen)}; print "THEY MATCH\n" if $before eq Data::Dumper->Dump([%junk]);
You might want to show us part of what you're trying to do, and then perhaps we can be more specific.jaybonci@starlite:~/perl/pm$ perl -v This is perl, v5.8.0 built for i386-linux-thread-multi
In reply to Re: Perl 5.8.0 and Storable
by JayBonci
in thread Perl 5.8.0 and Storable
by tame1
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |