From 05401dc3db9414986a2a1477e1e5fa08778da45c Mon Sep 17 00:00:00 2001
From: jules on spawn <spawn@cortex>
Date: Tue, 10 Apr 2018 10:45:47 +0200
Subject: latest renders with -l, get.pl to wget from asdf.us

---
 datasets/get.pl | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100755 datasets/get.pl

(limited to 'datasets/get.pl')

diff --git a/datasets/get.pl b/datasets/get.pl
new file mode 100755
index 0000000..8b821c6
--- /dev/null
+++ b/datasets/get.pl
@@ -0,0 +1,4 @@
+#!/usr/bin/perl
+
+foreach (@ARGV){ system('/usr/bin/wget', 'https://asdf.us/neural/' . $_); }
+
-- 
cgit v1.2.3-70-g09d2


From 0ecd9fcea8e7426c003baadc0cd67b62e5cf382f Mon Sep 17 00:00:00 2001
From: jules on spawn <spawn@cortex>
Date: Tue, 10 Apr 2018 12:40:06 +0200
Subject: ffmpeg less verbose, get should append suffix

---
 datasets/get.pl      | 3 ++-
 datasets/split44k.sh | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'datasets/get.pl')

diff --git a/datasets/get.pl b/datasets/get.pl
index 8b821c6..531b9f7 100755
--- a/datasets/get.pl
+++ b/datasets/get.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
 
-foreach (@ARGV){ system('/usr/bin/wget', 'https://asdf.us/neural/' . $_); }
+foreach (@ARGV){
+  my $s = $_; if ($s !~/\..*$/) { $s .= ".wav"; } system('/usr/bin/wget', 'https://neural:spawn5@asdf.us/neural/' . $s); }
 
diff --git a/datasets/split44k.sh b/datasets/split44k.sh
index 4884af1..b679d29 100755
--- a/datasets/split44k.sh
+++ b/datasets/split44k.sh
@@ -11,7 +11,7 @@ dataset_path=$3
 
 converted=".temp2.wav"
 rm -f $converted
-ffmpeg -i $fn -ac 1 -ar 44100 $converted
+ffmpeg  -hide_banner -loglevel error -i $fn -ac 1 -ar 44100 $converted
 
 mkdir $dataset_path
 length=$(ffprobe -i $converted -show_entries format=duration -v quiet -of csv="p=0")
-- 
cgit v1.2.3-70-g09d2


From 332d6f5b739c8e037e3d2877085f45fbeef375e8 Mon Sep 17 00:00:00 2001
From: jules on spawn <spawn@cortex>
Date: Tue, 10 Apr 2018 15:57:54 +0200
Subject: get script should build dataset

---
 datasets/get.pl | 6 +++++-
 latest.pl       | 0
 2 files changed, 5 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 latest.pl

(limited to 'datasets/get.pl')

diff --git a/datasets/get.pl b/datasets/get.pl
index 531b9f7..14c5a5b 100755
--- a/datasets/get.pl
+++ b/datasets/get.pl
@@ -1,5 +1,9 @@
 #!/usr/bin/perl
 
 foreach (@ARGV){
-  my $s = $_; if ($s !~/\..*$/) { $s .= ".wav"; } system('/usr/bin/wget', 'https://neural:spawn5@asdf.us/neural/' . $s); }
+  my $s = $_;
+  if ($s !~/\..*$/) { $s .= ".wav"; }
+  system('/usr/bin/wget', 'https://neural:spawn5@asdf.us/neural/' . $s);
+  system('/usr/bin/perl', 'dataset.pl', $s);
+}
 
diff --git a/latest.pl b/latest.pl
old mode 100644
new mode 100755
-- 
cgit v1.2.3-70-g09d2