会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl -w |
# db2gdbm: converts DB to GDBM |
use strict; |
use DB_File; |
use GDBM_File; |
unless ( @ARGV == 2 ) |
{ |
die "usage: db2gdbm infile outfile\n"; |
} |
my ( $infile, $outfile ) = @ARGV; |
my ( %db_in, %db_out ); |
# open the files |
tie ( %db_in, 'DB_File', $infile ) |
or die "Can't tie $infile: $!"; |
tie ( %db_out, 'GDBM_File', $outfile, GDBM_WRCREAT, 0666 ) |
or die "Can't tie $outfile: $!"; |
# copy (don't use %db_out = %db_in because it's slow on big databases) |
while ( my ( $k, $v ) = each %db_in ) |
{ |
$db_out {$k} = $v; |
} |
# these unties happen automatically at program exit |
untie %db_in; |
untie %db_out; |
#----------------------------- |
#% db2gdbm /tmp/users.db /tmp/users.gdbm |
#----------------------------- |
