zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-05 08:21:28 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.525

Browse source
This commit is contained in:
Nick Bebout 2013-02-08 20:40:54 -06:00
parent 543e344ac7
commit 32a552f56e
24 changed files with 6784 additions and 254 deletions
Download patch file Download diff file Expand all files Collapse all files

39
W/learn/dbmdeep Executable file
View file

@ -0,0 +1,39 @@
#!/usr/bin/perl
# $Id: dbfile,v 1.1 2013/01/02 16:33:19 gilles Exp gilles $
use strict ;
use warnings ;
use DBM::Deep ;
my %hash ;
my $db = DBM::Deep->new(
file => "test_dbmdeep.db",
locking => 0,
autoflush => 0
);
print ( scalar keys %$db, "\n" ) ;
#exit ;
for my $num ( 0 .. 255 ) {
print "$num\n" ;
my $key = chr $num ;
for my $num2 ( 1 .. 500 ) {
my $keylong = "$num2 $key" . ( $key x 1024 ) ;
my $val_1 = "V$key" ;
#print "$keylong\n" ;
my $val_2 ;
$db->{ $keylong } = $val_1 ;
$val_2 = $db->{ $keylong } ;
my $cmp = $val_1 cmp $val_2 ;
print " $cmp $val_1 $val_2\n" if $cmp ;
#$db->delete( $keylong ) ;
}
}