http://qs321.pair.com?node_id=1078478


in reply to Given When Syntax

you can use the dark arts mate ^_^
no stricts, no warnings, no use 5** ^_^,
come to the dark side of the force mate
$switch = chr(int(rand(3)+97)); $switch->(); sub a {print "one\n";} sub b {print "two\n";} sub c {print "three\n";}
p.s. guys dont scold me hard please :)

Replies are listed 'Best First'.
Re^2: Given When Syntax
by LanX (Sage) on Mar 15, 2014 at 19:56 UTC
    > use the dark arts mate

    maybe a misunderstanding, but I thought black is supposed to be beautiful not ugly! :-b

    sub switch ($$); for my $var (1..4) { my $i; switch $var => { 1 => sub { $i = "One"}, 2 => sub { $i = "Two"}, 3 => sub { $i = "Three"}, '' => sub { $i = "Other"}, }; print "$var is $i\n"; } sub switch ($$) { my ($case, $href) =@_; if ( exists $href->{$case} ) { $href->{$case}->(); } else { $href->{''}->(); } }

    Cheers Rolf

    ( addicted to the Perl Programming Language)

      symbolic references = dark arts no?
        > symbolic references = dark arts no?

        I'm not questioning the "dark" just the "art" in your statement. ;)

        Cheers Rolf

        ( addicted to the Perl Programming Language)

Re^2: Given When Syntax
by Deep_Plaid (Acolyte) on Mar 15, 2014 at 21:06 UTC

    Dark Arts... I like the sound of that. It's so eeeevil. Seriously, though - I appreciate the different perspective and your input. Thanks!