如何在Perl中比较mac地址

我有两个mac地址12-23-34-RT-43-23和12:23:34:RT:43:23。如何在Perl中比较这两个mac地址。是否有要比较的库？

规范化如何，使它们都大写，并将

-

转换为

：

my $mac1 = "12-23-34-RT-43-23";
my $mac2 = "12:23:34:rt:43:23";

y|[a-z]-|[A-Z]:| for $mac1, $mac2;

print "equal\n" if $mac1 eq $mac2;

---

有perl库吗？你能解释一下“y |[a-z]-|[a-z]：|一行$mac1，$mac2；”吗。