Die IP-Adresse meines Routers...: ...in der Kommandozeile angezeigt - #37200 (Netzwerkprogrammierung und Netzwerke mit Perl)

sepp

2006-03-31 06:58

User since
2006-03-31
2 Artikel
BenutzerIn

Quote
Geht das auch noch anders?

Kommt ganz auf deinen Router an. Wenn er Unix spricht, dann klappt das auch mit ifconfig:

Code: (dl )

use strict;
use warnings;

my $ip;

open CMD, '-|' or exec qw(/sbin/ifconfig ppp0) or die "exec failed: $!";
foreach(<CMD>)
{
        $ip = $1 if m/^\s*inet addr:([0-9.]+)/;
}
close CMD;

print $ip ? "Deine IP: $ip\n" : "IP nich gefunden :-(\n";