perl - 按 MAC 地址排序

Question

我有一个很长的 .csv 文件，其中包含设备信息。每条线路都是一个独特的设备，具有自己的信息，如下所示:

MACaddr,,,,Date,Date,,"b,n",,blahblahblah

我需要做的是获取该文件，然后将具有相同供应商 MAC(即 MAC 地址的前 3 个八位字节)的所有线路/设备分组在一起写入一个新文件。我可以轻松地获取每一行并使用正则表达式获取供应商 MAC，但随后我陷入困境。

我所拥有的是:

#!usr/bin/perl
use strict;
use warnings;

open IN, "wirelessClients.csv" or die "Couldn't open file\n$!";
open OUT, ">sortedClients.csv" or die "Couldn't open out file\n$!";

my @clients = <IN>;

foreach my $client (@clients)
{
    if($client =~ /^(\w+:\w+:\w+)/)
    {
        print OUT "$1,$client\n\n"; 
    }
}

我不知道如何对信息进行排序。

任何帮助和/或指导将不胜感激!

Answer 1

如果 MAC 地址是第一个元素，则简单排序应将前 3 个八位字节相同的元素分组:

sort wirelessClients.csv > sortedClients.csv