tasks a-s

Task/Optional-parameters/Perl/optional-parameters-1.pl

@@ -0,0 +1,10 @@
+sub sorttable
+ {my @table = @{shift()};
+  my %opt =
+     (ordering => sub {$_[0] cmp $_[1]}, column => 0, reverse => 0, @_);
+  my $col = $opt{column};
+  my $func = $opt{ordering};
+  my @result = sort
+      {$func->($a->[$col], $b->[$col])}
+      @table;
+  return ($opt{reverse} ? [reverse @result] : \@result);}

Task/Optional-parameters/Perl/optional-parameters-2.pl

@@ -0,0 +1,5 @@
+my $a = [["a", "b", "c"], ["", "q", "z"], ["zap", "zip", "Zot"]];
+foreach (@{sorttable $a, column => 1, reverse => 1})
+   {foreach (@$_)
+       {printf "%-5s", $_;}
+    print "\n";}