MACaddr,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"; 
    }
}

我不知道如何分类信息.

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