perl - sort by MAC Address

Question

I have a long .csv file that consists of device information. Each line is a unique device with its own info listed as such: MACaddr,,,,Date,Date,,"b,n",,blahblahblah. It's irrelevant what that all stands for.

What I need to do is take in the file and then write to a new file with all lines/devices that have the same Vendor MAC (i.e. the first 3 octets of the MAC Address) grouped together. I can easily take in each line and grab the Vendor MAC with a regex but then I am stuck.

All I have is:

#!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"; 
    }
}

I have no idea how to go about sorting the information.

Any help and/or guidance would be greatly appreciated!

Consider using lexical filehandles unless you've a deep reason not to.
Oh wow, well that was incredibly simple... I was thinking wayyyyyy to hard. Thank you!
And good information, pilcrow, thank you. I will adjust my ways.
You're welcome. Moved to an answer so you can close off the question.
@pilcrow On an 8-line script?! Whyever for? That’s like saying never have mainline code, but only write modules with subroutines. There are plenty of more important things to worry about.\n\n\n\n

RobEarl · Accepted Answer · 2013-07-29 16:46:25Z

up vote 2 down vote accepted

If the MAC address is the first element, a simple sort should group ones with the same first 3 octets:

sort wirelessClients.csv > sortedClients.csv

edited 14 mins ago

answered 32 mins ago

RobEarl
1,8982420

	Useless use of cat. –1 – tchrist 17 mins ago
	Thanks @tchrist, I should know better! – RobEarl 14 mins ago

add comment (requires an account with 50 reputation)

marderh · Answer 2 · 2013-07-29 16:39:08Z

As we're looking at the first octets anyway you can simply sort numerically:

#!/usr/bin/perl

use strict;
use warnings;


open (my $in, '<', "wirelessClients.csv") or die "$!";
open (my $out, '>',"sortedClients.csv") or die "$!";

my @clients = <$in>;

my @sorted = sort {$a <=> $b} @clients;

foreach @sorted {
    print $out, $_;
}

asked	today
viewed	19 times
active	today

perl - sort by MAC Address

2 Answers

Your Answer

Not the answer you're looking for? Browse other questions tagged perl sorting mac-address or ask your own question.

Linked

perl - sort by MAC Address

2 Answers

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged perl sorting mac-address or ask your own question.

Linked

Related