Update Perl to 5.40

Author: rtoal

perl/binary_search.pl

@@ -1,13 +1,8 @@
 # A hand coded binary search, to illustrate some Perl features
 
-use strict;
-use warnings;
-use utf8;
-use open qw(:std :utf8);
+use v5.40;
 
-sub binary_search {
-    # Arguments are passed as the list @_
-    my ($element_to_find, @ordered_array) = @_;
+sub binary_search($element_to_find, @ordered_array) {
 
     my $array_length = scalar @ordered_array;
     my $start_index = 0;
@@ -32,10 +27,11 @@ sub binary_search {
 
     # No booleans in Perl, 0 means false
     return 0;
-} 
+}
 
 die unless binary_search(3, (1, 3, 5, 7, 9)) == 1;
 die unless binary_search(5, (1, 3, 5, 7, 9)) == 1;
 die unless binary_search(8, (1, 3, 5, 7, 9)) == 0;
 die unless binary_search(5, ()) == 0;
 die unless binary_search(5, (5)) == 1;
+say "All tests passed";

perl/cafe.pl

@@ -1,9 +1,7 @@
 # An illustration of hashes and user input
 
-use strict;
-use warnings;
+use v5.40;
 use utf8;
-use open qw(:std :utf8);
 
 my %drinks_available = (
     "mocha" => 1,
@@ -18,18 +16,18 @@
     "vanilla" => 1
 );
 
-print("What drink would you like to order? We have mocha, matcha, and tea.\n");
+say "What drink would you like to order? We have mocha, matcha, and tea.";
 my $customer_drink = <STDIN>;
 chomp($customer_drink);
 $customer_drink = lc($customer_drink);
 
-print("Which syrup? We have raspberry, lavender, blueberry, and vanilla.\n");
+say "Which syrup? We have raspberry, lavender, blueberry, and vanilla.";
 my $customer_syrup = <STDIN>;
 chomp($customer_syrup);
-$customer_syrup = lc($customer_syrup); 
+$customer_syrup = lc($customer_syrup);
 
 if ($drinks_available{$customer_drink} and $syrups_available{$customer_syrup}) {
-    print("One order of $customer_drink with $customer_syrup!\n");
+    say "One order of $customer_drink with $customer_syrup!";
 } else {
-    print("Unfortunately, we do not have at least one of those items.\n");
+    say "Unfortunately, we do not have at least one of those items.";
 }

perl/guessing_game.pl

@@ -1,15 +1,13 @@
-use strict;
-use warnings;
+use v5.40;
 
 my $random_number = int(rand(9)) + 1;
 my $user_guess = 0;
 
-print("Welcome to the guessing game!\n");
-print("Type \'exit\' to leave the program\n");
+say "Welcome to the guessing game!";
+say "Type 'exit' to leave the program";
 
 while ($user_guess != $random_number and lc($user_guess) ne "exit") {
-    print("Please enter an integer between 1-10: \n");
-
+    say "Please enter an integer between 1-10:";
     $user_guess = <STDIN>;
     chomp($user_guess);
 
@@ -18,15 +16,15 @@
     }
 
     if ($user_guess == $random_number) {
-        print("You guessed correctly!\n");
+        say "You guessed correctly!";
     }
     elsif ($user_guess < $random_number) {
-        print("Too low!\n");
+        say "Too low!";
     }
     elsif ($user_guess > $random_number) {
-        print("Too high!\n");
+        say "Too high!";
     }
     else {
-        print("There was an error\n");
+        say "There was an error";
     }
 }

perl/hello.pl

@@ -1,4 +1,3 @@
-use strict;
-use warnings;
+use v5.40;
 
-print "Hello World!\n";
+say "Hello World!";

perl/palindrome.pl

@@ -1,10 +1,7 @@
-use strict;
-use warnings;
+use v5.40;
 use utf8;
-use open qw(:std :utf8);
 
-sub palindrome {
-    my ($word) = @_;
+sub palindrome($word) {
     my $reversed = reverse($word);
     return $word eq $reversed
 }
@@ -15,3 +12,4 @@ sub palindrome {
 die unless palindrome("ab") == 0;
 die unless palindrome("aba") == 1;
 die unless palindrome("キツツキ") == 1;
+say "All tests passed";

perl/permutations.pl

@@ -1,8 +1,6 @@
-use strict;
-use warnings;
+use v5.40;
 
-sub print_permutations {
-    my ($a, $n) = @_;
+sub print_permutations($a, $n) {
     if ($n <= 0) {
         print join("\t", @$a), "\n";
     } else {

perl/primes.pl

@@ -2,15 +2,13 @@
 # command line argument. Each thread writes its value to STDOUT if it is
 # prime.
 
-use strict;
-use warnings;
+use v5.40;
 use threads;
 use threads::shared;
 
 my $output_lock: shared;
 
-sub print_primes {
-    my $n = shift;
+sub print_primes($n) {
     my @checkers;
     for my $i (2 .. $n) {
         $checkers[$i-2] = threads->new(

perl/ses.pl

@@ -1,9 +1,8 @@
-use strict;
-use warnings;
+use v5.40;
 use List::Util qw(sum0);
 
-sub sum_of_even_squares {
-    sum0 map { $_**2 } grep { $_ % 2 == 0 } @_;
+sub sum_of_even_squares(@a) {
+    sum0 map { $_**2 } grep { $_ % 2 == 0 } @a;
 }
 
 die unless sum_of_even_squares() == 0;
@@ -12,4 +11,4 @@ sub sum_of_even_squares {
 die unless sum_of_even_squares(1) == 0;
 die unless sum_of_even_squares(2) == 4;
 die unless sum_of_even_squares(1, 2, 3, 4, 5) == 20;
-print "All tests passed\n";
+say "All tests passed\n";

perl/summer.pl

@@ -1,13 +1,11 @@
 # Script illustrating a concurrent list summer.
 
-use strict;
-use warnings;
+use v5.40;
 use threads;
 
 # Returns the sum of the values in its first argument which
 # should be an array reference.
-sub sum {
-    my $array = shift;
+sub sum($array) {
     my $length = scalar @$array;
     my $mid = $length/2;
 
@@ -36,3 +34,4 @@ sub sum {
 die unless (sum [100, 200, 300, 400]) == 1000;
 die unless (sum []) == 0;
 die unless (sum [(7) x 20000]) == 140000;
+say "All tests passed";

perl/top_ten_scorers.pl

@@ -1,5 +1,4 @@
-use strict;
-use warnings;
+use v5.40;
 use utf8;
 use open qw(:std :utf8);