diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-10-03 07:53:07 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-10-03 07:53:07 +0000 |
| commit | ea668ea9c725e7225d86f37c83f9878c2be0ac33 (patch) | |
| tree | 67ecd4046e3880027e60cfb358feef70a0f34161 | |
| parent | 121eca277adbd7fda202ad3df675f3dab2a0de92 (diff) | |
| download | perlweeklychallenge-club-ea668ea9c725e7225d86f37c83f9878c2be0ac33.tar.gz perlweeklychallenge-club-ea668ea9c725e7225d86f37c83f9878c2be0ac33.tar.bz2 perlweeklychallenge-club-ea668ea9c725e7225d86f37c83f9878c2be0ac33.zip | |
Create similar regexp as in task 2
| -rwxr-xr-x | challenge-185/perlboy1967/perl/ch-1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-185/perlboy1967/perl/ch-1.pl b/challenge-185/perlboy1967/perl/ch-1.pl index fc0b032225..93cf7b0f37 100755 --- a/challenge-185/perlboy1967/perl/ch-1.pl +++ b/challenge-185/perlboy1967/perl/ch-1.pl @@ -23,8 +23,9 @@ use Test::More; sub macFormat ($) { + state $re = join '\.', map { '([0-9a-f]{2})' x 2 } (1 .. 3); return join(':',$1,$2,$3,$4,$5,$6) - if ($_[0] =~ /(?i)^([0-9a-f]{2})([0-9a-f]{2})\.([0-9a-f]{2})([0-9a-f]{2})\.([0-9a-f]{2})([0-9a-f]{2})$/); + if ($_[0] =~ /(?i)^$re$/o); } |