From 536e2d878e00c2506091aa524d80c3a6bc62f58b Mon Sep 17 00:00:00 2001 From: drbaggy Date: Tue, 4 Oct 2022 02:13:13 +0100 Subject: fixed ordering --- challenge-185/james-smith/perl/ch-1.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-185/james-smith/perl/ch-1.pl b/challenge-185/james-smith/perl/ch-1.pl index 6c689e4d89..f56401ee4e 100644 --- a/challenge-185/james-smith/perl/ch-1.pl +++ b/challenge-185/james-smith/perl/ch-1.pl @@ -35,10 +35,10 @@ done_testing(); sub mac_split { join ':', @{[split /(\w\w)/, pop]}[1,3,5,7,9,11] } sub mac_regex2 { join':',pop=~/(..)(..).?/g } sub mac_pack { sub { pack 'ScScScScScS', $_[0],58, $_[1],58, $_[3],58, $_[4],58, $_[6],58,$_[7] }->( unpack 'SScSScSS', $_[0] ) } -sub mac_regex { pop =~ s{(\w\w)(\w\w)[.](\w\w)(\w\w)[.](\w\w)(\w\w)} {$1:$2:$3:$4:$5:$6}r } +sub mac_regexg { join':',pop=~/(\w.)(\w+)/g } sub mac_submap { join ':', map { substr $_[0], $_, 2 } 0,2,5,7,10,12 } sub mac_substr { join ':', substr($_[0],0,2), substr($_[0],2,2), substr($_[0],5,2), substr($_[0],7,2), substr($_[0],10,2), substr($_[0],12,2) } -sub mac_regexg { join':',pop=~/(\w.)(\w+)/g } +sub mac_regex { pop =~ s{(\w\w)(\w\w)[.](\w\w)(\w\w)[.](\w\w)(\w\w)} {$1:$2:$3:$4:$5:$6}r } __END__ Rate split regex2 pack regexg submap substr regex -- cgit