switch-case (Allgemeines zu Perl)

Gast Gast

2007-12-07 20:05

Hi,

kann mann eigentlich in einer switch-case anweisung ein oder verwenden?
So ungefähr:

Code: (dl )

my $var = 3;
switch ($var)

case (1) {}
case (2 || 3) {}

so wie ich es bräuchte müsste in diesem Fall "case2" ausgeführt werden.

geht das irgendwie?
danke

ptk

2007-12-07 22:05

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Benutzt du Switch.pm? Finger weg davon! Nimm lieber ein altmodisches if oder warte auf 5.10.0. Dort kannst du dein Problem so schreiben:

Code: (dl )

use 5.010;
my $var = 3;
given ($var) {
    when (1)      { say 1 }
    when ([2, 3]) { say "2 oder 3" }
}

GwenDragon

2007-12-07 22:12

User since
2005-01-17
14747 Artikel
Admin1

In Perl 5.6 oder 5.8 gibt es kein switch/case-Konstrukt.
Erst ab Perl 5.10.

die Drachin Gwen

ptk

2007-12-07 23:25

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Doch, Switch.pm liefert ein switch-Konstrukt für perl < 5.10. Aber leider ist es sehr buggy...

lichtkind

2007-12-07 23:27

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

es ist ein sourcefilter, das müsste als argument reichen.

Gast Gast

2007-12-08 13:35

ja, ich benutze switch.pm.
das 5.10.0 is das schon zu haben?

Struppi

2007-12-08 13:56

User since
2006-02-17
628 Artikel
BenutzerIn

Ich muss auch sagen, ich habe switch bisher noch nie vermißt, man kann sowas in Perl meistens schöner machen.

lichtkind

2007-12-08 14:00

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

5.10 gibt es derzeit als RC bei active state und als vanilla perl. wenn selber compilierst sogar als RC 2.