Opened by styx-cc at 2007-06-06 15:10
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Holla =)
Hab vor ein paar Tagen hier einen Thread im Forum fuer "Grafische Oberflächen gelesen", wo es um eine Uebersetzunggui ging ubnd versucht das mal nachzuvollziehen:
Dooferweise bringt er mir da nur ne Endlosschleife:
Täte mich interessieren, ob das jetzt an meinem Code oder am Modul liegt, vielen Dank fuer Hilfe.
MfG
Hab vor ein paar Tagen hier einen Thread im Forum fuer "Grafische Oberflächen gelesen", wo es um eine Uebersetzunggui ging ubnd versucht das mal nachzuvollziehen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use WWW::LEO;
while (1) {
print "Word: ";
chomp(my $text = <STDIN>);
last if ($text eq 'q');
translate($text);
}
sub translate {
my $text = shift;
my $leo = WWW::LEO->new();
$leo->query($text);
if ($leo->num_results) {
print Dumper $leo->en_de();
} else {
print "Sorry, your query for '%s'gave no results.\n", $leo->query;}
print "$leo\n";
}
Dooferweise bringt er mir da nur ne Endlosschleife:
Code: (dl
)
1
2
3
4
5
6
7
8
Use of uninitialized value in string eq at J:/Programme/Perl/site/lib/WWW/LEO.pm
line 203, <STDIN> line 1.
Use of uninitialized value in string eq at J:/Programme/Perl/site/lib/WWW/LEO.pm
line 205, <STDIN> line 1.
Use of uninitialized value in string eq at J:/Programme/Perl/site/lib/WWW/LEO.pm
line 203, <STDIN> line 1.
Use of uninitialized value in string eq at J:/Programme/Perl/site/lib/WWW/LEO.pm
line 205, <STDIN> line 1.
Täte mich interessieren, ob das jetzt an meinem Code oder am Modul liegt, vielen Dank fuer Hilfe.
MfG
Pörl.