counting

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;