comparison thesis/to-frames.pl @ 441:c20de2267d39

completeing first third of first chapter.
author Robert McIntyre <rlm@mit.edu>
date Mon, 24 Mar 2014 20:59:35 -0400
parents
children
comparison
equal deleted inserted replaced
440:b01c070b03d4 441:c20de2267d39
1 #!/bin/perl
2
3 $movie_file = shift(@ARGV);
4
5 # get file name without extension
6 $movie_file =~ m/^([^.]+)\.[^.]+$/;
7 $movie_name = $1;
8
9 @mkdir_command = ("mkdir", "-vp", $movie_name);
10 @ffmpeg_command = ("ffmpeg", "-i", $movie_file, $movie_name."/%07d.png");
11
12 print "@mkdir_command\n";
13 system(@mkdir_command);
14 print "@ffmpeg_command\n";
15 system(@ffmpeg_command);