3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 03:02:47 +01:00
pbot/applets/trans.pl
Pragmatic Software 3d97dc2c33 Rename "modules" to "applets"
"Applet" is a much better name for the external command-line
scripts and programs that can be loaded as PBot commands. They
will no longer be confused with Perl modules.

https://en.wikipedia.org/wiki/Applet
2021-11-19 18:05:50 -08:00

22 lines
443 B
Prolog
Executable File
Vendored

#!/usr/bin/env perl
# quick and dirty interface to https://github.com/soimort/translate-shell
use warnings;
use strict;
if (not @ARGV) {
print "Usage: trans [options] [source]:[targets] <word or phrase>\n";
exit;
}
my $args = quotemeta "@ARGV";
$args =~ s/\\([ :-])/$1/g;
$args =~ s/^\s+|\s+$//g;
my $opts = '-j -no-ansi -no-autocorrect';
$opts .= ' -b' unless $args =~ /^-/;
my $result = `trans $opts $args`;
print "$result\n";