fork(5) download
copy 
  1. sub foo {}
  2. sub bar {}
  3. sub baz {}
  4.  
  5. sub pick_at_random {
  6.  
  7.     my %table = @_;
  8.     return ( values %table )[ rand( keys %table ) ];
  9. }
  10.  
  11. my %lookup = ( A => \&foo,
  12.                B => \&bar,
  13.                C => \&baz );
  14.  
  15. my $selected = pick_at_random( %lookup );
  16.  
  17. print $selected == \&foo ? "Got 'foo'" :
  18.     $selected == \&bar ? "Got 'bar'" :
  19.     $selected == \&baz ? "Got 'baz'" :
  20.                          "Got nadda" ;
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Got 'foo'
https://ideone.com/2uVBII
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!