diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-10-03 08:00:31 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-10-03 08:00:31 +0000 |
| commit | 57f2a104a5c3961d3343ed09f28c622690fcc0b6 (patch) | |
| tree | dc22ea4cc83a84d1c00456ba8de28bb67428a304 | |
| parent | ea668ea9c725e7225d86f37c83f9878c2be0ac33 (diff) | |
| download | perlweeklychallenge-club-57f2a104a5c3961d3343ed09f28c622690fcc0b6.tar.gz perlweeklychallenge-club-57f2a104a5c3961d3343ed09f28c622690fcc0b6.tar.bz2 perlweeklychallenge-club-57f2a104a5c3961d3343ed09f28c622690fcc0b6.zip | |
Remove 'map' to generate the regexp
| -rwxr-xr-x | challenge-185/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-185/perlboy1967/perl/ch-1.pl b/challenge-185/perlboy1967/perl/ch-1.pl index 93cf7b0f37..145efb72ad 100755 --- a/challenge-185/perlboy1967/perl/ch-1.pl +++ b/challenge-185/perlboy1967/perl/ch-1.pl @@ -23,7 +23,7 @@ use Test::More; sub macFormat ($) { - state $re = join '\.', map { '([0-9a-f]{2})' x 2 } (1 .. 3); + state $re = join '\.', ('([0-9a-f]{2})' x 2) x 3; return join(':',$1,$2,$3,$4,$5,$6) if ($_[0] =~ /(?i)^$re$/o); } |