是否有一些很好的方法将Mac号码分成组?我指的是(00),(16),(3e),(2f),(ba),(b7)
我知道,List::Gen
中有一个where函数,但我无法在我的主机中安装此软件包.那么,我该怎么做呢?
非常感谢你!
my $mac = "00163e2fbab7"; $mac =~ s/..(?!$)\K/:/g; print "$mac\n";
输出:
00:16:3e:2f:ba:b7
如果您没有Perl 5.10,您可以使用:
$mac =~ s/(..)(?!$)/$1:/g;