Mercurial > cortex

view thesis/to-frames.pl @ 498:cbab4501a850

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
processing bib queue. num left: 5
author Robert McIntyre <rlm@mit.edu>
date Sat, 29 Mar 2014 23:23:38 -0400
parents c20de2267d39
children
line wrap: on
line source
     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);