/[cwmp]/google/bin/dump.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /google/bin/dump.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 80 - (hide annotations)
Fri Jun 22 14:33:04 2007 UTC (16 years, 11 months ago) by dpavlin
File MIME type: text/plain
File size: 302 byte(s)
simple script to dump content of store
1 dpavlin 80 #!/usr/bin/perl -w
2    
3     # dump.pl
4     #
5     # 06/22/07 16:23:05 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6    
7     use strict;
8     use DBM::Deep;
9     use Data::Dump qw/dump/;
10    
11     my $path = shift @ARGV || 'state.db'; #die "usage: $0 state.db";
12    
13     my $db = DBM::Deep->new(
14     file => $path,
15     );
16    
17     warn "file: $path\n";
18     print dump( $db );

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26