Return to excise_from_db.pl CVS log | Up to [LON-CAPA] / loncom / debugging_tools |
version 1.1, 2004/01/27 18:42:25 | version 1.2, 2005/03/19 00:39:54 |
---|---|
Line 37 use GDBM_File; | Line 37 use GDBM_File; |
my $fname = shift; | my $fname = shift; |
my $key = shift; | my $key = shift; |
if (! defined($fname) || ! defined($key)) { | |
print "Specify db file and key on command line.".$/. | |
'excise_from_db.pl roles.db "a very long key"'.$/; | |
exit; | |
} | |
my %db; | my %db; |
if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER,0640)) { | if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER,0640)) { |
warn "Unable to tie to $fname"; | warn "Unable to tie to $fname"; |