[SimBot-commits] CVS: simbot/tools dbdump.pl,NONE,1.1 dbrestore.pl,NONE,1.1
Status: Abandoned
Brought to you by:
kstange
|
From: Kevin S. <ks...@us...> - 2005-05-06 21:24:02
|
Update of /cvsroot/simbot/simbot/tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4159/tools Added Files: dbdump.pl dbrestore.pl Log Message: missed moving info to data/... I also moved dbdump/dbrestore to tools/ --- NEW FILE: dbdump.pl --- #!/usr/bin/perl -w $file = $ARGV[0]; dbmopen(%db, $file, 0665) || die $!; while(($key, $val) = each %db) { print "$key => $val\n"; } dbmclose(%db); --- NEW FILE: dbrestore.pl --- #!/usr/bin/perl -w $file = $ARGV[0]; $dbname = $file; $dbname =~ s/\..*?$//; open(DBDUMP, $file) || die $!; dbmopen(%db, $dbname, 0665) || die $!; while(<DBDUMP>) { chomp; ($key, $value) = split(" => "); $db{$key} = $value; } dbmclose(%db); close(DBDUMP); |