Opened by Rafael at 2006-08-02 13:04
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
So sollte es funktionieren.
Zu deinen Fehleren:
1. Wenn man mit "<>" oder "readline" von einem Filehandle liest wird auch das Zeilenende z.B "\n" mitgeliefert.
2. Es ist nicht immer gesagt, das es sich bei den Eingaben um Zahlen handelt. Wenn man warnings benutzt gibt es unter Umständen eine Warnung, da man Buchstaben nicht wie Zahlen vergleichen kann.
3. Es können auch mehrere Zeichen eingeben werden, das sollte auch abgefangen werden.
Meine Variante ist recht simpel und gührt immer zum Ende wenn das erste eingebene Zeichen keine Zahl ist.
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
use warnings;
use strict;
my $option = 1;
while ($option != 0){
print "Please select:\n\n";
print "1 Deutsch\n";
print "2 English\n";
print "0 Exit\n";
print "\nYou've selected: ";
$option = getc(STDIN);
$option = 0 if($option=~/\D/);
print "\n|$option|\n";
if ($option == 0){
print "You've choosen!\n";
}
elsif ($option == 1){
qx(/de/index_de.pl);
}
elsif ($option == 2){
qx(/en/index_en.pl);
}
}
Zu deinen Fehleren:
1. Wenn man mit "<>" oder "readline" von einem Filehandle liest wird auch das Zeilenende z.B "\n" mitgeliefert.
2. Es ist nicht immer gesagt, das es sich bei den Eingaben um Zahlen handelt. Wenn man warnings benutzt gibt es unter Umständen eine Warnung, da man Buchstaben nicht wie Zahlen vergleichen kann.
3. Es können auch mehrere Zeichen eingeben werden, das sollte auch abgefangen werden.
Meine Variante ist recht simpel und gührt immer zum Ende wenn das erste eingebene Zeichen keine Zahl ist.