 string mit mehreren Möglichkeiten vergleichen
|
Seitenanfang |
| Bin ein perl-noob und habe iene Frage: Wieso funktioniert filgendes nicht: #!/usr/bin/perl -w
2
3 use strict;
4
5 print "Geben sie ein: \n";
6 my $irg = <STDIN>;
7 chomp($irg);
8 while ($irg ne ("a","b")) {
9 print "gib erneut ein:";
10 $irg = <STDIN>;
11 chomp($irg);
12 }
13
14 print "$irg gewählt!\n";
Datum: 23.09.2009-14:57
|
re: string mit mehreren Möglichkeiten vergleichen
|
Seitenanfang |
Du musst für jede Möglichkeit den Vergleich extra hinschreiben und mit "und" ("and" ) verknüpfen, alsowhile( $irg ne "a" and $irg ne "b") { }Wenn es ganz viele möglichkeiten sind, kannst Du auch "grep" verwenden: while( not grep{ $irg ne $_ }('a','b','c') ) { }
Datum: 23.09.2009-16:58
|
re: string mit mehreren Möglichkeiten vergleichen
|
Seitenanfang |
Typo: Das grep-Beispiel muss so aussehen:while( not grep{ $irg eq $_ }('a','b','c') ) { }
Datum: 23.09.2009-16:59
|
re: string mit mehreren Möglichkeiten vergleichen
|
Seitenanfang |
| Hallo Renee, Es funktioniert!
Vielen dank dafür!
Datum: 24.09.2009-11:20
|
