mirror of
https://codeberg.org/scip/leo.git
synced 2025-12-16 12:11:04 +01:00
27 lines
939 B
Perl
Executable File
27 lines
939 B
Perl
Executable File
#!/usr/bin/perl
|
|
use WWW::Dict::Leo::Org;
|
|
|
|
# configure access to dict.leo.org
|
|
my $leo = new WWW::Dict::Leo::Org(
|
|
-UserAgent => 'IE 19',
|
|
#-Proxy => 'http://127.0.0.1:3128',
|
|
#-ProxyUser => 'me',
|
|
#-ProxyPass => 'pw',
|
|
-Debug => 0,
|
|
-SpellTolerance => 'on',
|
|
-Morphology => 'standard',
|
|
-CharTolerance => 'relaxed',
|
|
-Language => 'de2ru'
|
|
);
|
|
|
|
# fetch matches
|
|
my @matches = $leo->translate(shift || die "Usage: $0 <term>\n");
|
|
|
|
# print the first, if any
|
|
if (@matches && $leo->lines() >= 1) {
|
|
printf "%s\n", $matches[0]->{data}->[0]->{left};
|
|
}
|
|
else {
|
|
print "fail\n";
|
|
}
|