Perl improvements

Author: rtoal

perl/README.md

@@ -1,44 +1,44 @@
 <img src="https://raw.githubusercontent.com/rtoal/polyglot/master/docs/resources/perl-logo-64.png">
 
-# Perl
+# Perl Explorations
 
-## Perl Examples:
+To build and run Perl programs on your local machine, visit the [Perl downloads page](https://www.perl.org/get.html). You'll have an opportunity to update your pre-installed Unix or macOS Perl, or fetch a fresh download for Windows (such as [Strawberry Perl](https://strawberryperl.com)).
 
-To get Perl:
-<details><summary><b>MacOS, Unix</b></summary>
-  
-<br />Perl should be already downloaded, type the following to confirm: <br />
+Programs in this folder can be run from the command line like so:
 
-  ```sh
-    $ perl -v
-  ```  
- </details>
-<details><summary><b>Windows</b></summary>
-  
-<br />Download Perl using the link below: <br />
- 
-- [Strawberry Perl](https://strawberryperl.com)
-  
-</details>
+```
+perl triple.pl
+```
 
-## About Perl:
+```
+perl top_ten_scorers.pl < ../test/wnba_input
+```
 
-Perl was created by Larry Wall, with the original intention being to make report processing easier. The language was inspired by other programming languages such as C and C++. It is widely used because of how well it deals with regular expression and string parsing.
+To run the tests on a Unix-like shell:
 
+```
+./test.sh
+```
 
-## Perl Resources:
-- [Perl Language Home Page](https://www.perl.org)
+## About Perl
 
-- [Perl Docs Page](https://perldoc.perl.org)
+Perl was created by Larry Wall, with the original intention being to make report processing easier. The language was inspired by other programming languages such as C and C++. It is widely used because of how well it deals with regular expression and string parsing.
 
-- [W3schools Perl Tutorial](https://www.w3schools.io/languages/perl-tutorials/)
+## Perl Resources
 
+- [Language Home](https://www.perl.org)
+- [Documentation Page](https://perldoc.perl.org)
+- [Perl at Rosetta Code](https://rosettacode.org/wiki/Category:Perl)
+- [W3schools Perl Tutorial](https://www.w3schools.io/languages/perl-tutorials/)
 - [Perl Programming for Beginners](https://www.simplilearn.com/perl-programming-for-beginners-article#perl_implementation)
-
 - [Perl in 100 Seconds](https://www.youtube.com/watch?v=74_7LrRe5DI)
 
-## Perl Open Source Resources:
+## Perl in Open Source
+
+Browse open source activity in Perl at:
 
-Perl is an open source project so feel free to add any contributions!
+- [The GitHub Topic Page](https://github.com/topics/perl)
+- [Trending Repositories on GitHub](https://github.com/trending/perl)
+- [Top 100 Starred Repositories on GitHub](https://github.com/EvanLi/Github-Ranking/blob/master/Top100/Perl.md)
 
-- [Perl Open Source](https://github.com/Perl/perl5)
+and note that [Perl itself is open source](https://github.com/Perl/perl5) so please feel free to help out with its development.

perl/binary_search.pl

@@ -1,12 +1,12 @@
-# A handcoded binary search, to illustrate some Perl features
+# A hand coded binary search, to illustrate some Perl features
 
 use strict;
 use warnings;
 use utf8;
 use open qw(:std :utf8);
 
 sub binary_search {
-    # Arugments are passed as the list @_
+    # Arguments are passed as the list @_
     my ($element_to_find, @ordered_array) = @_;
 
     my $array_length = scalar @ordered_array;

perl/cafe.pl

@@ -5,26 +5,26 @@
 use utf8;
 use open qw(:std :utf8);
 
-%drinks_available = (
+my %drinks_available = (
     "mocha" => 1,
     "matcha" => 1,
     "tea" => 1
 );
 
-%syrups_available = (
+my %syrups_available = (
     "raspberry" => 1,
     "lavender" => 1,
     "blueberry" => 1,
     "vanilla" => 1
 );
 
 print("What drink would you like to order? We have mocha, matcha, and tea.\n");
-$customer_drink = <STDIN>;
+my $customer_drink = <STDIN>;
 chomp($customer_drink);
 $customer_drink = lc($customer_drink);
 
 print("Which syrup? We have raspberry, lavender, blueberry, and vanilla.\n");
-$customer_syrup = <STDIN>;
+my $customer_syrup = <STDIN>;
 chomp($customer_syrup);
 $customer_syrup = lc($customer_syrup); 
 

perl/test.sh

@@ -1,11 +1,13 @@
 #!/usr/bin/env bash
 perl binary_search.pl && \
+echo 'tea\nlavender\n' | perl cafe.pl && \
 perl hello.pl && \
+perl palindrome.pl && \
 perl primes.pl 100 && \
 perl ses.pl && \
 perl summer.pl && \
-perl triple.pl | diff ../test/triple_expected - && \
 perl top_ten_scorers.pl < ../test/wnba_input | diff ../test/wnba_expected - && \
+perl triple.pl | diff ../test/triple_expected - && \
 perl twice.pl
 perl wordcount.pl < ../test/wordcount_input | diff ../test/wordcount_expected - && \