diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-09 09:17:30 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-09 09:17:30 +0100 |
| commit | 6d47ee10f36c95440b182b45d70903b47b43a151 (patch) | |
| tree | 13d89ffb5930fb9799a2eb56b8eb2d0d7f80ccae | |
| parent | 2dd636dd7d2624453a9ce2f025f310c3feab4517 (diff) | |
| parent | 8b358a654309badcdc54bc43d5aefad2f24903d0 (diff) | |
| download | perlweeklychallenge-club-6d47ee10f36c95440b182b45d70903b47b43a151.tar.gz perlweeklychallenge-club-6d47ee10f36c95440b182b45d70903b47b43a151.tar.bz2 perlweeklychallenge-club-6d47ee10f36c95440b182b45d70903b47b43a151.zip | |
Merge pull request #736 from Prajithp/master
solution for perl weekly challenge 029-01
| -rw-r--r-- | challenge-029/prajith-p/perl5/ch01.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-029/prajith-p/perl5/ch01.pl b/challenge-029/prajith-p/perl5/ch01.pl new file mode 100644 index 0000000000..cf5485900d --- /dev/null +++ b/challenge-029/prajith-p/perl5/ch01.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +use feature qw<say>; + +my $arg = $ARGV[0]; + +if ($arg =~ m/\{(.+)\}/) { + for my $str (split(',', $1)) { + (my $o = $arg ) =~ s/(\{.+\})/$str/; + say $o; + } +} |