Question

I need convert some Mac Numbers(00163e2fbab7) into Mac String. (with “:”)

Is there some good way to divide the Mac Number into group? I mean into (00),(16),(3e),(2f),(ba),(b7)

I know, there is a where function in List::Gen but I can’t install this package in my host. So, how can I do that?

Thank you very much!

Answer 1

my $mac = "00163e2fbab7";
$mac =~ s/..(?!$)\K/:/g;
print "$mac\n";

Output:

00:16:3e:2f:ba:b7

If you don’t have Perl 5.10, you can use:

$mac =~ s/(..)(?!$)/$1:/g;