examples/debian/versions/dump_db.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use MLDBM qw(DB_File Storable);
   6 use Data::Dumper;
   7 use Fcntl;
   8
   9 $MLDBM::DumpMeth=q(portable);
  10
  11
  12 my %db;
  13
  14 my $db_name = (shift @ARGV || 'versions.idx');
  15
  16 tie %db, MLDBM => $db_name,O_RDONLY or die "unable to tie $db_name: $!";
  17 if (@ARGV) {
  18      print Dumper([@db{@ARGV}]);
  19 }
  20 else {
  21      print Dumper(\%db);
  22 }
  23
  24
  25