From 4b759e5549a0ac5a2702a94078c25454a096b84e Mon Sep 17 00:00:00 2001
From: "E. Choroba" <choroba@matfyz.cz>
Date: Sat, 16 Nov 2019 11:38:15 +0100
Subject: Solve both tasks of 034 in one script

---
 challenge-034/e-choroba/perl5/ch-1+2.pl | 36 +++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 challenge-034/e-choroba/perl5/ch-1+2.pl

diff --git a/challenge-034/e-choroba/perl5/ch-1+2.pl b/challenge-034/e-choroba/perl5/ch-1+2.pl
new file mode 100755
index 0000000000..70f6eedb41
--- /dev/null
+++ b/challenge-034/e-choroba/perl5/ch-1+2.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use feature qw{ say };
+
+my @keys = qw( not_this_one
+               this_one
+               this_one_too
+               it_was_enough );
+
+my %hash = (not_this_one  => 'not selected',
+            this_one      => 'selected first',
+            this_one_too  => 'selected second',
+            it_was_enough => 'not selected either');
+
+my %dispatch = (show_array_slice       => \&show_array_slice,
+                show_hash_slice        => \&show_hash_slice,
+                show_index_value_slice => \&show_index_value_slice);
+
+my $what_to_show = shift;
+my $action = $dispatch{$what_to_show}
+           || sub { die "Unknown action $what_to_show!\n" };
+$action->();
+
+sub show_array_slice {
+    say for @keys[1, 2];
+}
+
+sub show_hash_slice {
+    say for @hash{ @keys[1, 2] };
+}
+
+sub show_index_value_slice {
+    my %selected = %hash{ @keys[1, 2] };
+    say for values %selected;
+}
-- 
cgit