From 95fb080ab7e86d8bca779a3a0d448d54ee676a3a Mon Sep 17 00:00:00 2001 From: Abigail Date: Sun, 13 Dec 2020 21:06:46 +0100 Subject: Comments --- challenge-090/abigail/perl/ch-1.pl | 6 ++++++ 1 file changed, 6 insertions(+) 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__ -- cgit