Perl 获取唯一和排序元素的计数器

Question

我有一个在 cisco 交换机上运行并执行“show mac-address-table dynamic”命令的 perl 脚本。它将数据存储在@ver 中。然后我使用正则表达式仅从 @ver 获取 mac 地址，然后根据所需的初始八位字节地址区分 mac 地址。我现在想要排序的唯一 MAC 地址以及关于唯一地址重复次数的计数器。我正在使用 linux 命令 'sort | uniq -d -c' 为它。简而言之，脚本如下：

my @ver = $session->cmd('show mac-address-table dynamic');

my $mac_addr;
my @sonic_macaddr;
my @final_macaddr;

for my $line (@ver) {
       if (my ($mac_addr) = $line =~ /((?:[0-9a-f]{4}\.){2}[0-9a-f]{4})/) {
               $mac_addr = $1;
               if ($mac_addr =~ m/^(0018)[.]/ or $mac_addr =~ m/^(a0ce)[.]/ or $mac_addr =~ m/^(0009)[.]/){
                   push (@sonic_macaddr, $mac_addr."\n");
                   @final_macaddr = qx (@sonic_macaddr | sort | uniq -d -c);
                   print @final_macaddr;
               }
        }
 }
 $session->close()

如果我使用 qx 在脚本本身中执行它，我没有得到所需的输出，否则它在命令行上工作正常。例如 perl.pl |排序 |唯一的-d -c。请建议我哪里出错了。谢谢。

Answer 1

如果你有一个列表 @list 并且你想要其中的唯一元素，你必须使用哈希：

my @list = ('c', 'c', 'a', 'a', '1', '1') ;
my %unic ;
for my $it (@list) {
$unic{$it}++
}

for my $k (sort keys %unic) {
    print $k, " "
}

在您的代码中，我看到了许多不同的问题，但是如果没有您正在解析的源文件，就很难提出解决方案。

 @final_macaddr = qx (@sonic_macaddr | sort | uniq -d -c);

perl 习惯用法qx ("quote execute") 将执行分叉到操作系统，它不知道@sonic_macaddr 是什么，因为它是一个Perl 变量！在 Perl 脚本中使用哈希“排序 unic”。

push (@sonic_macaddr, $mac_addr."\n");

我不会在列表中添加“\n”：打印时添加它会更好：

for my $it (@sonic_macaddr) {
    print $it, "\n" ; 
}

甚至：

print join "\n", @sonic_macaddr ; 

你永远不知道什么时候需要一个干净的 mac 地址列表；）