m/<irgendwas>/ - #163526 (Allgemeines zu Perl)

Muffi

2012-11-22 14:16

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

2012-11-22T13:05:18 silver345
Noch mal zu Switch. Gibt es denn eine Alternative dazu außer elsif oder so?

Evtl. ein Hash.

Code (perl): (dl )

my %switch = (
 10 => sub { print 10; },
 20 => sub { print 20; },
);

$switch{$given}->();

[EDIT]
Hihi, das geht sogar als Einzeiler.

Code (perl): (dl )

{ foo => sub { print 'das ist foo' }, bar => sub { print 'das ist bar' } }->{bar}->();

Last edited: 2012-11-22 14:27:18 +0100 (CET)

1 + 1 = 10