diff options
| -rwxr-xr-x | get.pl | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -68,8 +68,13 @@ if ($video_fn) { print "Video filename: $video_fn\n"; my $tag = sanitize($video_fn); print "creating dataset: $tag\n"; + my @partz = split(".", $video_fn); + my $ext = $partz[$#partz]; + my $new_fn = $tag . '.' . $ext; + system('mv', $video_fn, $new_fn); + print "new video filename: $video_fn\n"; mkdir($tag); - system('ffmpeg', '-i', $video_fn, "-filter:v", "scale=1024x512", $tag . '/frame_%05d.png'); + system('ffmpeg', '-i', $new_fn, "-filter:v", "scale=1024x512", $tag . '/frame_%05d.png'); print "created dataset: $tag\n"; } |
