mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 00:25:40 -04:00
36 lines
753 B
Perl
36 lines
753 B
Perl
use strict;
|
|
use warnings;
|
|
use LWP::UserAgent;
|
|
use JSON::MaybeXS qw/decode_json encode_json/;
|
|
use Data::Dumper;
|
|
|
|
my $ua = LWP::UserAgent->new();
|
|
|
|
|
|
return sub {
|
|
my( $said ) = @_;
|
|
|
|
|
|
if ($said->{body} =~ /^\s*(?<from>\S+)\s+(?<to>\S+)\s+(?<text>.*)$/) {
|
|
my $json = {
|
|
source_language => $+{from},
|
|
target_language => $+{to},
|
|
text => $+{text}
|
|
};
|
|
|
|
my $resp = $ua->post("http://192.168.1.229:10000/translate_text", Content => encode_json($json));
|
|
|
|
my $cont = $resp->decoded_content();
|
|
my $output = decode_json($cont);
|
|
|
|
print Dumper $output;
|
|
|
|
} else {
|
|
print "help text";
|
|
}
|
|
|
|
return('handled');
|
|
}
|
|
|
|
__DATA__
|
|
translate <from> <to> <text> - Translate using the Bing Translation API.
|