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	dpavlin	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			}