Parent Directory | Revision Log | Patch
revision 7 by dpavlin, Mon Oct 15 22:34:20 2007 UTC | revision 10 by dpavlin, Tue Oct 16 09:27:16 2007 UTC | |
---|---|---|
# | Line 9 use strict; | Line 9 use strict; |
9 | use File::Find; | use File::Find; |
10 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
11 | use Imager; | use Imager; |
12 | use Getopt::Long; | |
my $path = shift @ARGV || die "usage: $0 path_to_dump_dir\n"; | ||
13 | ||
14 | # Mireo 1, Google 0 | # Mireo 1, Google 0 |
15 | my $flip_vertical = 0; | my $flip_vertical = 0; |
16 | ||
17 | GetOptions( | |
18 | 'flip-vertical' => \$flip_vertical, | |
19 | ); | |
20 | ||
21 | my $path = shift @ARGV || die "usage: $0 path_to_dump_dir\n"; | |
22 | ||
23 | my ( $range, $usage ); | my ( $range, $usage ); |
24 | ||
25 | my @files; | my @files; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |