diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-10-04 12:32:17 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-10-04 12:32:17 +0100 |
| commit | 5f2256602e56c484b2823d7053c74e898731eb5e (patch) | |
| tree | 48642922aeb0cedf86614d655090bde4206a5a4b | |
| parent | 3a22b38882cdcbb5150b5b4b618327374f9aa9a7 (diff) | |
| parent | 236f2b4974f6b87d429a3f8315b710a4543c14c0 (diff) | |
| download | perlweeklychallenge-club-5f2256602e56c484b2823d7053c74e898731eb5e.tar.gz perlweeklychallenge-club-5f2256602e56c484b2823d7053c74e898731eb5e.tar.bz2 perlweeklychallenge-club-5f2256602e56c484b2823d7053c74e898731eb5e.zip | |
Merge pull request #6847 from PerlBoy1967/master
Even wackier solution for task 1
| -rwxr-xr-x | challenge-185/perlboy1967/perl/ch-1.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-185/perlboy1967/perl/ch-1.pl b/challenge-185/perlboy1967/perl/ch-1.pl index 145efb72ad..89bb6d33f7 100755 --- a/challenge-185/perlboy1967/perl/ch-1.pl +++ b/challenge-185/perlboy1967/perl/ch-1.pl @@ -24,8 +24,7 @@ use Test::More; sub macFormat ($) { state $re = join '\.', ('([0-9a-f]{2})' x 2) x 3; - return join(':',$1,$2,$3,$4,$5,$6) - if ($_[0] =~ /(?i)^$re$/o); + join ':',($_[0] =~ /(?i)^$re$/go); } |