zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-05 00:11:31 +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

36
W/learn/dbfile Executable file
View file

@ -0,0 +1,36 @@
#!/usr/bin/perl
# $Id: dbfile,v 1.1 2013/01/02 16:33:19 gilles Exp gilles $
use strict ;
use warnings ;
use DB_File ;
my %hash ;
my $X = tie %hash, 'DB_File', 'test_dbfile.db' ;
print ( scalar keys %hash, "\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 ;
my $status ;
$status = $X->put( $keylong, $val_1 ) ;
$status = $X->get( $keylong, $val_2 ) ;
my $cmp = $val_1 cmp $val_2 ;
print " $cmp $val_1 $val_2\n" if $cmp ;
#$status = $X->del( $keylong ) ;
}
}

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 ) ;
}
}

BIN
W/learn/test_dbmdeep.db Normal file
View file

Binary file not shown.