Opened by styx-cc at 2007-06-06 15:10
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Wenn du:
Meinen solltest, sollte dir doch aufgefallen sein das ich meine eigene Endlosschleife via Eingabe: 'q' unterbrechen kann!?
Und wenn ich nur:
Benutze bleibts bei der Endlosschleife, oder verstehe ich dich falsch?
MfG
Code: (dl
)
1
2
3
4
5
6
while (1) {
print "Word: ";
chomp(my $text = <STDIN>);
last if ($text eq 'q');
translate($text);
} Meinen solltest, sollte dir doch aufgefallen sein das ich meine eigene Endlosschleife via Eingabe: 'q' unterbrechen kann!?
Und wenn ich nur:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
translate('Eimer');
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";
}Benutze bleibts bei der Endlosschleife, oder verstehe ich dich falsch?
MfG
Pörl.