diff options
| -rw-r--r-- | challenge-083/steven-wilson/perl/ch-1.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-083/steven-wilson/perl/ch-1.pl b/challenge-083/steven-wilson/perl/ch-1.pl new file mode 100644 index 0000000000..5ff7841102 --- /dev/null +++ b/challenge-083/steven-wilson/perl/ch-1.pl @@ -0,0 +1,19 @@ +#!/usr/bin/env perl +# Week 83 Task 1 solution by Steven Wilson. + +use strict; +use warnings; +use Test::More; + +my $ex1_t = "The Weekly Challenge"; +my $ex2_t = "The purpose of our lives is to be happy"; +ok( length_of_excerpt($ex1_t) == 6, 'Example 1' ); +ok( length_of_excerpt($ex2_t) == 23, 'Example 2' ); +done_testing(); + +sub length_of_excerpt { + my $input = shift; + $input =~ s/^\w+|\w+$//g; # trim first and last words + $input =~ s/\s//g; # remove whitespace + return length $input; +} |