如何在Perl中转换MAC地址格式？

Question

我必须制作一个perl脚本，该脚本以hhh.hhh.hh.hhh的格式获得Mac地址，其中“ H”是一个十六进制数字，并给我输出HH：HH：HH：HH：HH：HH：HH：HH：HH：HH：HH：HH。如何在Perl中进行此转换？

这是一个输入文本示例：

System Information
Local port          :xgei-1/6/1
Group MAC address   :Nearest Bridge
Neighbor index      :1
Chassis type        :MAC address
Chassis ID          :4cf5.5b8b.f860
Port ID type        :Interface name
Port ID             :XGigabitEthernet0/0/1
Time to live        :109
Port description    :ZTE-2-C650-172.24.102.77
System name         :main-link-lab-cdi-sw-01

这是我的脚本片段，在这里我处理MAC地址数据：

if ($linha =~m/^Chassis ID/){
            my($chassisID) = $linha=~ /:(.*)/g;
            $lldpInfo{$localInt}{"chassisID"} = $chassisID;
            print $chassisID."\n";  
}

在这种情况下，我必须处理变量$ chassisid。

Answer 1

您可以使用 netadaddr :: mac 来自CPAN到分析的模块到分析和格式Mac地址方法：

#!/usr/bin/env perl
use warnings;
use strict;
use feature qw/say/;
use NetAddr::MAC;

my $macaddr = '4cf5.5b8b.f860';
my $mac = NetAddr::MAC->new($macaddr);
say $mac->as_ieee; # 4c:f5:5b:8b:f8:60

Answer 2

一种快速而肮脏的方法可能是将字符串分开，将条目（假定为每个字符为4个字符）映射到由分隔的2个字符段：，然后重新加入带有的结果：分离器

my $chassisID = '4cf5.5b8b.f860';
# Transform the format:
$chassisID = join(':', map { substr($_, 0, 2).':'.substr($_, 2, 2) } split('\.', $chassisID));
print "ChassisID in MAC address format: $chassisID\n";

输出：

ChassisID in MAC address format: 4c:f5:5b:8b:f8:60

Answer 3

my $out = join ":", unpack "(H2)*", pack "n*", map hex, split /\./, $in;

---

如果无法省略领先零，则可以使用以下较短的解决方案：

my $out = $in =~ s/\.//rg =~ s/..\K/:/rg;

s/\.//g, s/..\K/:/g for $s;                  # In-place