summaryrefslogtreecommitdiff
path: root/datasets/dataset.pl
diff options
context:
space:
mode:
Diffstat (limited to 'datasets/dataset.pl')
-rwxr-xr-xdatasets/dataset.pl3
1 files changed, 3 insertions, 0 deletions
diff --git a/datasets/dataset.pl b/datasets/dataset.pl
index 532a172..cd068bf 100755
--- a/datasets/dataset.pl
+++ b/datasets/dataset.pl
@@ -71,9 +71,12 @@ sub process($) {
system 'sox', glob('tmp_*'), $b_tmp;
system 'rm', glob 'tmp_*';
system './split44k.sh', $b_tmp, 8, $name;
+ print "pitchshifting...\n";
+ my $i = 0;
opendir my $dh, $name or die "cant opendir $name: $!";
while (readdir $dh) {
next if /^\./;
+ print "$i...\n" if ++$i % 100 == 0;
my $fn = $_;
my $n = rand( 2 * $opt_j ) - $opt_j;
system 'sox', $name . '/' . $fn, $name . '/z_' . $fn, 'pitch', $n;