Data commit

Task/Conditional-structures/Perl/conditional-structures-1.pl

@@ -0,0 +1,3 @@
+if ($expression) {
+    do_something;
+}

Task/Conditional-structures/Perl/conditional-structures-2.pl

@@ -0,0 +1,2 @@
+# postfix conditional
+do_something if $expression;

Task/Conditional-structures/Perl/conditional-structures-3.pl

@@ -0,0 +1,6 @@
+if ($expression) {
+    do_something;
+}
+else {
+    do_fallback;
+}

Task/Conditional-structures/Perl/conditional-structures-4.pl

@@ -0,0 +1,9 @@
+if ($expression1) {
+    do_something;
+}
+elsif ($expression2) {
+    do_something_different;
+}
+else {
+    do_fallback;
+}

Task/Conditional-structures/Perl/conditional-structures-5.pl

@@ -0,0 +1 @@
+$variable = $expression ? $value_for_true : $value_for_false;

Task/Conditional-structures/Perl/conditional-structures-6.pl

@@ -0,0 +1 @@
+$condition and do_something;  # equivalent to  $condition ? do_something : $condition

Task/Conditional-structures/Perl/conditional-structures-7.pl

@@ -0,0 +1 @@
+$condition or do_something;  # equivalent to  $condition ? $condition : do_something

Task/Conditional-structures/Perl/conditional-structures-8.pl

@@ -0,0 +1,8 @@
+use feature "switch";
+given ($input) {
+    when (0)          { print 'input == 0'; }
+    when ('coffee')   { print 'input equal coffee'; }
+    when ([1..9])     { print 'input between 1 and 9'; }
+    when (/rats/)     { print 'input matches rats'; }
+    default           { do_fallback; }
+}