summaryrefslogtreecommitdiff
path: root/wolfram/api-perl6.sh
blob: 8990cf18118750c461e57c32d5356f6d3cdcd949 (plain)
1
2
3
4
5
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"