diff options
| -rw-r--r-- | challenge-001/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-001/abigail/perl/ch-1.pl | 15 |
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-001/abigail/README.md b/challenge-001/abigail/README.md index 5655dfed12..e21e3a20af 100644 --- a/challenge-001/abigail/README.md +++ b/challenge-001/abigail/README.md @@ -7,6 +7,7 @@ Write a script to replace the character `e` with `E` in the string `e` is found in the string. ### Solutions +* [Perl](perl/ch-1.pl) ## [Challenge #2](https://perlweeklychallenge.org/blog/perl-weekly-challenge-001 diff --git a/challenge-001/abigail/perl/ch-1.pl b/challenge-001/abigail/perl/ch-1.pl new file mode 100644 index 0000000000..8fd893fb93 --- /dev/null +++ b/challenge-001/abigail/perl/ch-1.pl @@ -0,0 +1,15 @@ +#!/opt/perl/bin/perl + +use 5.032; + +use strict; +use warnings; +no warnings 'syntax'; + +use experimental 'signatures'; +use experimental 'lexical_subs'; + +while (<>) { + my $changes = y/e/E/; + say $_, $changes +} |