Parent Directory | Revision Log | Patch
revision 994 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |