logging

2 files changed, 4 insertions, 2 deletions

diff --git a/datasets/dataset.pl b/datasets/dataset.pl
index 75aa2b1..cf1c1e2 100755
--- a/datasets/dataset.pl
+++ b/datasets/dataset.pl
@@ -5,6 +5,7 @@ use Getopt::Std;
 
 our $opt_c;
 getopts('c');
+print "<<<< DATASET >>>>\n";
 
 my $fmt = <<FMT;
 Input File     : '01_snapping_clean.wav'
@@ -66,7 +67,8 @@ sub process($) {
   system("/bin/rm", $b_tmp);
 }
 
-foreach my $file (@ARGV) {;
+foreach my $file (@ARGV) {
+  print $file . "\n";
   if ( -e $file ) {
     process($file);
   }
diff --git a/get.pl b/get.pl
index 4b94c22..f947bfc 100755
--- a/get.pl
+++ b/get.pl
@@ -35,7 +35,7 @@ foreach my $s (@ARGV){
         }
       }
       if ($fn) {
-        $new_fn = sanitize($fn)
+        $new_fn = sanitize($fn);
         $new_fn .= '.flac';
         system('mv', $fn, $new_fn);
         print "got fn, $fn => $new_fn\n";