wopi2/trunk/dump.pl

#!/usr/bin/perl -w

use strict;

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

my $db = new DBM::Deep 'wopi.db' || die "can't open 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 'wopi.db' \|\| die "can't open db";
10
11	if (lc(shift) =~ /xml/) {
12	print XMLout($db);
13	} else {
14	print Dumper($db);
15	}