Help for this page
use Storable qw(nfreeze thaw); $scalar = nfreeze(\%hash); %hash_copy = %{ thaw($scalar) };
use Tie::RDBM; tie %h,Tie::RDBM,'mysql:test',{table=>'Demo',create=>1,autocommit=>0}; $h{'key1'} = 'Some data here'; ... print $h{'key3'}->{complex}->[0]; tied(%h)->commit; untie %h;
www.com | www.net | www.org
No recent polls found