diff options
| -rwxr-xr-x | latest.pl | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -32,7 +32,6 @@ sub process($){ while (readdir DIR) { next unless /wav$/; $c += 1; - last; } closedir DIR; @@ -52,6 +51,11 @@ sub process($){ if (! $epoch[0]) { return 0; } + + if (! $opt_l) { + print $name . ", $c samples\n"; + } + $epoch[0] =~ /(\d+)/; if ($1 < 4) { return 0; |
