Re: 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";}
[download]

p.s. guys dont scold me hard please :)

Comment on Re: Given When Syntax Download Code

Replies are listed 'Best First'.
Re^2: Given When Syntax by LanX (Saint) 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->{''}->(); } }` [download] Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]
Re^3: Given When Syntax by Lennotoecom (Pilgrim) on Mar 15, 2014 at 20:05 UTC
symbolic references = dark arts no?	[reply]
Re^4: Given When Syntax by LanX (Saint) on Mar 15, 2014 at 20:18 UTC
> 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)	[reply]
Re^5: Given When Syntax by Lennotoecom (Pilgrim) on Mar 15, 2014 at 20:24 UTC
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!	[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks