diff options
| -rw-r--r-- | challenge-063/mohammad-anwar/perl/ch-1a.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-063/mohammad-anwar/perl/ch-1a.pl b/challenge-063/mohammad-anwar/perl/ch-1a.pl new file mode 100644 index 0000000000..c05cb274cc --- /dev/null +++ b/challenge-063/mohammad-anwar/perl/ch-1a.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +my $string = $ARGV[0] || ' hello world'; +my $regex = $ARGV[1] || qr/[ea]l/; + +print last_word($string, $regex), "\n"; + +sub last_word { + my ($string, $regex) = @_; + + return [ grep /$regex/, reverse ( split /\s/, $string ) ]->[0]; +} |