Dotaz: Perl .- precteni arp tabulky

[motorcb]

Zdravim mitry :) Chtel bych poradit jak v perlu precte a naparsruju arp (/proc/net/arp) tabluku??? Potrebuju vytahnout vsechny IP adresy.

Dekuji za rady a nakopnuti.

Odpovědi

[NN]

Udela bych to tak, ze nactu /proc/net/arp jako soubor a pak v cyklu radek poradku nactu vystup regularniho vyrazu, ktery odfiltruje ip adresu do pole.

NN

[motorcb]

A jak nactu /proc/net/arp jako soubor?

[camel1cz]

Tohle se nedá použít?

#!/usr/bin/perl

$ARPFILE = "/proc/net/arp";
open(ARPFILE) or die("Could not open file.");
foreach $line (<ARPFILE>) {
    if($line =~ m/^([0-9\.]+)[ \t].*/) {
	print $1 . "\n";
    }
}