summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdatasets/dataset.pl4
-rwxr-xr-xget.pl2
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";