diff options
| author | Vasil Zlatanov <v@skozl.com> | 2017-10-17 18:24:07 +0100 |
|---|---|---|
| committer | Vasil Zlatanov <v@skozl.com> | 2017-10-17 18:24:07 +0100 |
| commit | 8141b4227780faddc9672041bda60d84206b8422 (patch) | |
| tree | 10b8894b9718b5642baf08b66faad9b67a662042 /wolfram/api-perl6.sh | |
| download | speech-8141b4227780faddc9672041bda60d84206b8422.tar.gz speech-8141b4227780faddc9672041bda60d84206b8422.tar.bz2 speech-8141b4227780faddc9672041bda60d84206b8422.zip | |
make speech project public
Diffstat (limited to 'wolfram/api-perl6.sh')
| -rw-r--r-- | wolfram/api-perl6.sh | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/wolfram/api-perl6.sh b/wolfram/api-perl6.sh new file mode 100644 index 0000000..8990cf1 --- /dev/null +++ b/wolfram/api-perl6.sh @@ -0,0 +1,6 @@ +#!/bin/bash +# id: U6E8UV-AP3QJAT6RK +DIR="$HOME/Dropbox/speech" +toread=$(curl "http://api.wolframalpha.com/v2/query?input=$1&appid=U6E8UV-AP3QJAT6RK" | perl6 -e 'my $crap=slurp;my $out = $crap ~~ ms/"200" .*? "<plaintext>" <( .*? )> "</plaintext>"/;$out ~~ s/\(.*\)//;print "$out"') +$DIR/tts.sh "$toread" + |