kagedb/getpartstxt.pl

   1 ###############################################################################
   2 # getpartstxt.pl
   3 #
   4 #   create txt file from KAGE/cgi
   5 #   by Koichi Kamichi
   6 ###############################################################################
   7
   8 if($#ARGV != 0 || !(-d $ARGV[0])){
   9         print "Usage: perl getpartstxt.pl partsdb_dir\n";
  10         exit;
  11 }
  12 $partsdir = $ARGV[0];
  13 $partsdir =~ s/\/?$//; # remove the last slash
  14
  15 use Fcntl;
  16 use BerkeleyDB;
  17
  18 tie %db, "BerkeleyDB::Hash", -Filename => "$partsdir/partsdb", -Flags => DB_RDONLY
  19 or die "An error occured at opening DB file.\n";
  20 %db = ();
  21
  22 foreach(sort(keys(%db))){
  23         print "$_\t$db{$_}\n";
  24 }
  25
  26 untie(%db);