Scroll to navigation

Org(3pm) User Contributed Perl Documentation Org(3pm)


WWW::Dict::Leo::Org - Interface module to dictionary


 use WWW::Dict::Leo::Org;
 my $leo = new WWW::Dict::Leo::Org();
 my @matches = $leo->translate($term);


WWW::Dict::Leo::Org is a module which connects to the website and translates the given term. It returns an array of hashes. Each hash contains a left side and a right side of the result entry.


new() has several parameters, which can be supplied as a hash.

All parameters are optional.

The hostname of the dict website to use. For the moment only is supported, which is also the default - therefore changing the hostname would not make much sense.
The tcp port to use for connecting, the default is 80, you shouldn't change it.
The user-agent to send to site. Currently this is the default:

 Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv: Gecko/20071025 Firefox/
Fully qualified proxy server. Specify as you would do in the well known environment variable http_proxy, example:

 -Proxy => ""
-ProxyUser -ProxyPass
If your proxy requires authentication, use these parameters to specify the credentials.
If enabled (set to 1), prints a lot of debug information to stderr, normally only required for developers or to report bugs (see below).

Parameters to control behavior of

Translation direction. Please note that always translates either to or from german.

The following languages are supported: english, polish, spanish, portuguese russian and chinese.

You can specify only the country code, or append de2 in order to force translation to german, or preprend de2 in order to translate to the other language.

Valid examples:

 ru     to or from russian
 de2pl  to polish
 es2de  spanish to german

Valid country codes:

 en    english
 es    spanish
 fr    french
 ru    russian
 pt    portuguese
 pl    polish
 ch    chinese

Default: en.



Use this method after initialization to connect to and translate the given term. It returns an array of hashes containing the actual results.

 use WWW::Dict::Leo::Org;
 use Data::Dumper;
 my $leo = new WWW::Dict::Leo::Org();
 my @matches = $leo->translate("test");
 print Dumper(\@matches);

which prints:

 $VAR1 = [
          'data' => [
                      'left' => 'check',
                      'right' => 'der Test'
                      'left' => 'quiz (Amer.)',
                      'right' => 'der Test    [Schule]'
                     'title' => 'Unmittelbare Treffer'
           'data' => [
                       'left' => 'to fail a test',
                       'right' => 'einen Test nicht bestehen'
                       'left' => 'to test',
                       'right' => 'Tests macheneinen Test machen'
           'title' => 'Verben und Verbzusammensetzungen'
          'data' => [
                      'left' => 'testing  adj.',
                      'right' => 'im Test'
          'title' => 'Wendungen und Ausdrücke'

You might take a look at the leo script how to process this data.


Returns the size of the largest returned term (left side).


Returns the number of translation results.


Returns the submitted form uri.




WWW::Dict::Leo::Org - Copyright (c) 2007-2017 by Thomas v.D.

<> - Copyright (c) 1995-2016 LEO Dictionary Team.


Thomas v.D. <>


Use to report bugs, select the queue for WWW::Dict::Leo::Org.

Please don't forget to add debugging output!


2020-02-22 perl v5.30.0