view thesis/to-frames.pl @ 525:25f23cfd56ce

alter pics, enhance text.
author Robert McIntyre <rlm@mit.edu>
date Mon, 21 Apr 2014 02:13:23 -0400
parents c20de2267d39
children
line wrap: on
line source
1 #!/bin/perl
3 $movie_file = shift(@ARGV);
5 # get file name without extension
6 $movie_file =~ m/^([^.]+)\.[^.]+$/;
7 $movie_name = $1;
9 @mkdir_command = ("mkdir", "-vp", $movie_name);
10 @ffmpeg_command = ("ffmpeg", "-i", $movie_file, $movie_name."/%07d.png");
12 print "@mkdir_command\n";
13 system(@mkdir_command);
14 print "@ffmpeg_command\n";
15 system(@ffmpeg_command);