perl print regex string

casperdaghost · 06-07-2012, 01:53 AM

SO I have this file of mac addresses . only the last six digit pairs are the mac address.

Code:

        312.47B 31      00 15 17 81 4D 94
        312.47B 32      00 15 17 9B AF AC
        312.47A 14      00 15 17 64 0C 6C
        312.47A 15      00 15 17 81 DD D4
        312.48B 33      00 15 17 99 97 10
        312.48B 34      00 15 17 81 A3 F0
        312.48B 35      00 15 17 C1 02 A0

and I have this code:

Code:

#!/usr/bin/perl

open FILE, "/tmp/foo" or die $!;
while (<FILE>) {
$string = $_ ;
chomp $string;
if ($string =~ /\d{2}\s+(\d{2}\s\d{2}\s\d{2}\s\d{2}\s\d{2}\s\d{2})/) {
        print $string;
}

sleep 1;
}

and this is all it prints:

312.48B 33 00 15 17 99 97 10

what I want to print is the last 6 digits of each line - space seperated - theyare actuallly mac addresses. Eventually, I want to use the TR values to replace the spcaes with colons.
but first I have to print them out.

casperdaghost · 06-07-2012, 01:55 AM

even when i change the regex to this - still same thing.

Code:

/(00\s\d{2}\s\d{2}\s\d{2}\s\d{2}/

millgates · 06-07-2012, 02:12 AM

I am not a perl expert, but what did you expect?
You do realize that the values are hexadecimal and the script only outputs the one line that only contains digits, right?

casperdaghost · 06-07-2012, 02:17 AM

oh crap sorry

millgates · 06-07-2012, 05:04 AM

Also, the code will print the entire line if it contains the pattern. To print only the matched part, something like this might work

Code:

	if ($string =~ s/.*(([0-9A-F]{2}\s*){6})$/\1/) {
        	print "$string\n";
	}

Sergei Steshenko · 06-07-2012, 08:41 AM

Quote:

Originally Posted by casperdaghost

SO I have this file of mac addresses . only the last six digit pairs are the mac address.

Code:

        312.47B 31      00 15 17 81 4D 94
        312.47B 32      00 15 17 9B AF AC
        312.47A 14      00 15 17 64 0C 6C
        312.47A 15      00 15 17 81 DD D4
        312.48B 33      00 15 17 99 97 10
        312.48B 34      00 15 17 81 A3 F0
        312.48B 35      00 15 17 C1 02 A0

and I have this code:

Code:

#!/usr/bin/perl

open FILE, "/tmp/foo" or die $!;
while (<FILE>) {
$string = $_ ;
chomp $string;
if ($string =~ /\d{2}\s+(\d{2}\s\d{2}\s\d{2}\s\d{2}\s\d{2}\s\d{2})/) {
        print $string;
}

sleep 1;
}

and this is all it prints:

312.48B 33 00 15 17 99 97 10

what I want to print is the last 6 digits of each line - space seperated - theyare actuallly mac addresses. Eventually, I want to use the TR values to replace the spcaes with colons.
but first I have to print them out.

How about using web search, e.g. https://duckduckgo.com/?q=perl+regul...on+mac+address , and reading the first match ?

casperdaghost · 06-17-2012, 11:40 PM

thanks guys - I did nt initially realize that the mac were in hex - not just dec.
working late .