Perlでそんなことができるものを作ってみた。 #!/usr/bin/env perl use strict; use warnings; use URI; use LWP::UserAgent; use JSON qw(decode_json); use Encode; my $query = shift @ARGV or die "Usage suggest.pl query\n"; my $uri = URI->new("http…