15 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
16 |
use Carp qw/confess/; |
use Carp qw/confess/; |
17 |
use File::Path; |
use File::Path; |
18 |
|
use Getopt::Long; |
19 |
|
|
20 |
my $dump = 0; |
my $dump = 0; |
21 |
my $debug = 0; |
my $debug = 0; |
22 |
|
my $dump_dir = '/tmp/dump/'; |
23 |
|
|
24 |
|
GetOptions( |
25 |
|
"dump!" => \$dump, |
26 |
|
"debug!" => \$debug, |
27 |
|
"dump-dir=s" => \$dump_dir, |
28 |
|
); |
29 |
|
|
30 |
my $path = shift @ARGV || die "usage: $0 movie.amv\n"; |
my $path = shift @ARGV || die "usage: $0 movie.amv\n"; |
31 |
|
|
32 |
my $dump_dir = '/tmp/dump/'; |
|
33 |
rmtree $dump_dir if -e $dump_dir; |
rmtree $dump_dir if -e $dump_dir; |
34 |
mkpath $dump_dir || die "can't create $dump_dir: $!"; |
mkpath $dump_dir || die "can't create $dump_dir: $!"; |
35 |
|
|