dir to movie

1 files changed, 19 insertions, 0 deletions

diff --git a/dir-to-movie.pl b/dir-to-movie.pl
new file mode 100644
index 0000000..1d7f34b
--- /dev/null
+++ b/dir-to-movie.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+my $i = 0;
+my $ls  = `ls -1v *.png`;
+my @lines = split('\n', $lines);
+
+system('mkdir', 'tmp');
+
+for my $line (@lines) {
+  chomp $line;
+  system('ln', '-s', $line, sprintf('./tmp/frame_%05d.png', $i));
+  $i += 1;
+}
+
+system("ffmpeg", "-i", "./tmp/frame_%05d.png", "-y", "-c:v", "libx264", "-vf", "fps=25", "-pix_fmt", "yuv420p", "-s", "456x256", $tag . ".mp4");
+
+END {
+  system('rm', '-rf', 'tmp');
+}