wopi2/trunk/dump.pl

#!/usr/bin/perl -w

use strict;

use DBM::Deep;
use Data::Dumper;
use XML::Simple;

my $db = new DBM::Deep '/tmp/wopi.db' || die "can't open db";

die "can't open db" if (! defined($db));

if (lc(shift) =~ /xml/) {
        print XMLout($db);
} else {
        print Dumper($db);
}
1	#!/usr/bin/perl -w
2
3	use strict;
4
5	use DBM::Deep;
6	use Data::Dumper;
7	use XML::Simple;
8
9	my $db = new DBM::Deep '/tmp/wopi.db' \|\| die "can't open db";
10
11	die "can't open db" if (! defined($db));
12
13	if (lc(shift) =~ /xml/) {
14	print XMLout($db);
15	} else {
16	print Dumper($db);
17	}