diff options
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" + |