diff options
| -rw-r--r-- | challenge-063/perlboy1967/perl/ch-1.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/challenge-063/perlboy1967/perl/ch-1.pl b/challenge-063/perlboy1967/perl/ch-1.pl new file mode 100644 index 0000000000..f88288d2b1 --- /dev/null +++ b/challenge-063/perlboy1967/perl/ch-1.pl @@ -0,0 +1,29 @@ +#!/usr/bin/perl + +# Perl Weekly Challenge - 063 +# +# Task 1 - Last Word +# +# Author: Niels 'PerlBoy' van Dijke + +use strict; +use warnings; + +# Prototype +sub last_word($$); + +printf "%s\n", last_word(' hello world', qr/[ea]l/); # 'hello' +printf "%s\n", last_word("Don't match too much, Chet!", qr/ch.t/i); # 'Chet!' +printf "%s\n", last_word("spaces in regexp won't match", qr/in re/) // '(undef)'; # undef +printf "%s\n", last_word( join(' ', 1..1e6), qr/^(3.*?){3}/); # '399933' + +sub last_word ($$) { + my ($line, $re) = @_; + + foreach my $word (reverse split(/\s+/, $line) { + return $word if ($word =~ /$re/); + } + + return undef; +} + |