diff options
Diffstat (limited to 'datasets/dataset.pl')
| -rwxr-xr-x | datasets/dataset.pl | 3 |
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; |
