• amv.pl

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