Startscript: Kleines Problem mit meinen Ideen ein Tea - #54943 (Allgemeines zu Perl)

coax

2005-05-15 23:09

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

[quote=BoSSSpy,15.05.2005, 20:50]

Code: (dl )

if ($bla eq '1,8,7,9,10,Ja,JA,ja,bla') {Aktion;}

geht das? oder gib's ne andere Möglichkeit ... bei mir Hauts nicht hin.
[/quote]
Du koenntest so auf eine Menge von moeglichen Werten pruefen:

Code: (dl )

my(@array) = qw(1 7 8 9 10 ja Ja JA bla);
if ( grep $string eq $_, @array ) {
    # do sth
}
# oder etwas kuerzer...
if ( grep $string eq $_, qw(1 7 8 9 10 ja Ja JA bla) ) {
    # do sth
}

oder du pruefst mit einer umstaendlichen Regexps

Code: (dl )

1
2
3

if( $string =~ /^1|7|8|9|10|ja|Ja|JA$/ ) {
    # do sth
}

edit: um diese Methode nicht auszulassen...

Code: (dl )

1
2
3

if( $string eq '1' || $string eq '7' || $string eq '8' || $string eq '9' || $string eq '10' || $string eq 'ja' || $string eq 'Ja' || $string eq 'JA' ) {
    # do sth
}

Und statt auf alle moeglichen Schreibvariante ( also ja, Ja, JA ) testen zu muessen, kannst du auch mit lc oder uc arbeiten (bzw. mit dem i-Modifier (ignore case) bei Regexps m/PATTERN/i), das Bsp. von oben wuerde dann so aussehen

Code: (dl )

my(@array) = qw(1 7 8 9 10 ja bla);
if ( grep lc $string eq $_, @array ) {
    # do sth
}

siehe dazu:
perldoc -f lc

Quote
PS.: Der Smili gehört da nicht hin

Dann solltest du code-Tags verwenden, dann passiert so etwas nicht ;) .

PS: Das goto solltest du wirklich durch etwas Aequivalentes ersetzen!\n\n

,,Das perlt aber heute wieder...'' -- Dittsche