diff options
| -rw-r--r-- | challenge-185/james-smith/perl/ch-1.pl | 4 |
1 files 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 |