rlm@441: #!/bin/perl
rlm@441: 
rlm@441: $movie_file = shift(@ARGV);
rlm@441: 
rlm@441: # get file name without extension
rlm@441: $movie_file =~ m/^([^.]+)\.[^.]+$/;
rlm@441: $movie_name = $1;
rlm@441: 
rlm@441: @mkdir_command = ("mkdir", "-vp", $movie_name);
rlm@441: @ffmpeg_command = ("ffmpeg", "-i", $movie_file, $movie_name."/%07d.png");
rlm@441: 
rlm@441: print "@mkdir_command\n";
rlm@441: system(@mkdir_command);
rlm@441: print "@ffmpeg_command\n";
rlm@441: system(@ffmpeg_command);