diff options
| author | Jules Laplace <julescarbon@gmail.com> | 2018-06-20 15:05:53 +0200 |
|---|---|---|
| committer | Jules Laplace <julescarbon@gmail.com> | 2018-06-20 15:05:53 +0200 |
| commit | fce8a69e04876379794d91e7cdc0d74ab8a36c80 (patch) | |
| tree | 574f5c2de9c5a09df1e08a303d3598458c58246e /dir-to-movie.pl | |
| parent | 2c14047ff0e8143c21d9ebc2a598168ae9f6b6f2 (diff) | |
live path stuff and dir 2movie
Diffstat (limited to 'dir-to-movie.pl')
| -rwxr-xr-x | dir-to-movie.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/dir-to-movie.pl b/dir-to-movie.pl index 7bc48c5..7e74eec 100755 --- a/dir-to-movie.pl +++ b/dir-to-movie.pl @@ -3,6 +3,13 @@ my $tag = $ARGV[0] or "pix2pixhd_" . time; $tag =~ s/\....$//; +if (! -e "results/$tag") { + print "usage: $0 [tag]\n"; + exit(1); +} + +chdir('results/$tag'); + my $i = 0; my $ls = `ls -1v *.png`; my @lines = split('\n', $ls); @@ -28,4 +35,5 @@ system("ffmpeg", END { system('rm', '-rf', 'tmp'); + chdir('../..'); } |