diff options
| author | Abigail <abigail@abigail.be> | 2020-12-13 21:06:46 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-12-13 21:06:46 +0100 |
| commit | 95fb080ab7e86d8bca779a3a0d448d54ee676a3a (patch) | |
| tree | 419628671abc727f70fbead6e4152fedb53f60ff | |
| parent | 02f429beafe79bf618f28d472cd2ddffe3f6dceb (diff) | |
| download | perlweeklychallenge-club-95fb080ab7e86d8bca779a3a0d448d54ee676a3a.tar.gz perlweeklychallenge-club-95fb080ab7e86d8bca779a3a0d448d54ee676a3a.tar.bz2 perlweeklychallenge-club-95fb080ab7e86d8bca779a3a0d448d54ee676a3a.zip | |
Comments
| -rw-r--r-- | challenge-090/abigail/perl/ch-1.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/challenge-090/abigail/perl/ch-1.pl b/challenge-090/abigail/perl/ch-1.pl index 8c82434993..16bb02d6e5 100644 --- a/challenge-090/abigail/perl/ch-1.pl +++ b/challenge-090/abigail/perl/ch-1.pl @@ -9,6 +9,12 @@ no warnings 'syntax'; use experimental 'signatures'; use experimental 'lexical_subs'; +# +# y/// does the required replacements, and returns the number +# of characters replaced -- which turns out to be the length +# of the sequence. So, we first print the length of the sequence, +# followed by the modified sequence. +# print y/TAGC/ATCG/, "\n", $_ while <>; __END__ |