This commit is contained in:
TLINDEN
2016-10-09 10:37:21 +02:00
parent c2bdb57c2f
commit 173d8061d7

74
Org.pm
View File

@@ -7,7 +7,7 @@
# or service marks of their respective holders. # or service marks of their respective holders.
package WWW::Dict::Leo::Org; package WWW::Dict::Leo::Org;
$WWW::Dict::Leo::Org::VERSION = "1.42"; $WWW::Dict::Leo::Org::VERSION = "1.43";
use strict; use strict;
use warnings; use warnings;
@@ -467,41 +467,41 @@ print Dumper(\@matches);
which prints: which prints:
$VAR1 = [ $VAR1 = [
{ {
'data' => [ 'data' => [
{ {
'left' => 'check', 'left' => 'check',
'right' => 'der Test' 'right' => 'der Test'
}, },
{ {
'left' => 'quiz (Amer.)', 'left' => 'quiz (Amer.)',
'right' => 'der Test <20><> [Schule]' 'right' => 'der Test <20><> [Schule]'
], ],
'title' => 'Unmittelbare Treffer' 'title' => 'Unmittelbare Treffer'
}, },
{ {
'data' => [ 'data' => [
{ {
'left' => 'to fail a test', 'left' => 'to fail a test',
'right' => 'einen Test nicht bestehen' 'right' => 'einen Test nicht bestehen'
}, },
{ {
'left' => 'to test', 'left' => 'to test',
'right' => 'Tests macheneinen Test machen' 'right' => 'Tests macheneinen Test machen'
} }
], ],
'title' => 'Verben und Verbzusammensetzungen' 'title' => 'Verben und Verbzusammensetzungen'
}, },
'data' => [ 'data' => [
{ {
'left' => 'testing <20>adj.', 'left' => 'testing <20>adj.',
'right' => 'im Test' 'right' => 'im Test'
} }
], ],
'title' => 'Wendungen und Ausdr<64>cke' 'title' => 'Wendungen und Ausdr<64>cke'
} }
]; ];
You might take a look at the B<leo> script how to process You might take a look at the B<leo> script how to process
@@ -542,6 +542,6 @@ Please don't forget to add debugging output!
=head1 VERSION =head1 VERSION
1.42 1.43
=cut =cut