From 63fb71641373e92077d19f62fb54a9d85d5fe362 Mon Sep 17 00:00:00 2001
From: Jules Laplace <julescarbon@gmail.com>
Date: Sat, 16 Jun 2018 18:22:19 +0200
Subject:  get

---
 get.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/get.pl b/get.pl
index b51b07a..abfa2da 100755
--- a/get.pl
+++ b/get.pl
@@ -6,6 +6,7 @@ sub sanitize ($) {
   my $s = lc shift;
   $s =~ s/\.[^.]+$//g;
   $s =~ s/\W/_/g;
+  $s =~ s/[\(\)]/_/g;
   $s =~ s/\s+/_/g;
   if (length($s) == 0) {
     print "fn is empty";
@@ -85,9 +86,13 @@ else {
 if ($video_fn) {
   print "Video filename: $video_fn\n";
   my $tag = sanitize($video_fn);
+  my @partz = split(".", $video_fn);
+  my $ext = $partz[$#partz];
+  my $fn = $tag . '.' . $ext;
+  system('mv', $video_fn, $fn)
   print "creating dataset: $tag\n";
   mkdir($tag);
-  system('ffmpeg', '-i', $video_fn, "-filter:v", "scale=256x256", $tag . '/frame_%05d.png');
+  system('ffmpeg', '-i', $fn, "-filter:v", "scale=256x256", $tag . '/frame_%05d.png');
   print "created dataset: $tag\n";
 }
 
-- 
cgit v1.2.3-70-g09d2