/[webpac2]/trunk/scripts/webpac-storable-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

Diff of /trunk/scripts/webpac-storable-dump.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1126 by dpavlin, Sun Nov 4 14:43:49 2007 UTC revision 1127 by dpavlin, Tue Apr 21 15:41:08 2009 UTC
# Line 6  use strict; Line 6  use strict;
6  use Storable qw/retrieve/;  use Storable qw/retrieve/;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8    
9  my $path = shift @ARGV || die "usage: $0 /path/to/lookup\n";  my $path = shift @ARGV || die "usage: $0 /path/to/lookup\n" unless @ARGV;
10    
11  print dump( retrieve( $path ));  print "# $_: ",dump( retrieve( $_ )),$/ foreach @ARGV;
12    
Legend:
Removed from v.1126  
changed lines
  Added in v.1127
  ViewVC Help
Powered by ViewVC 1.1.26