diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2020-06-01 06:01:14 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2020-06-01 06:01:14 +0000 |
| commit | faffe66f477214e58cd6543786bdc8026488db0d (patch) | |
| tree | b9fbb729edc2df2d418a5edb582d3f40ad7ec8fa | |
| parent | c7c4932fc737683a90788770a5b2662c9035bd77 (diff) | |
| download | perlweeklychallenge-club-faffe66f477214e58cd6543786bdc8026488db0d.tar.gz perlweeklychallenge-club-faffe66f477214e58cd6543786bdc8026488db0d.tar.bz2 perlweeklychallenge-club-faffe66f477214e58cd6543786bdc8026488db0d.zip | |
Task 1
| -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; +} + |