Aus Windows den Hostname und DNS-Suffix auslesen: Sys::Hostname und ? - #74364 (Allgemeines zu Perl)

wiederlader

2007-02-27 17:17

User since
2007-01-03
36 Artikel
BenutzerIn
[default_avatar]

[quote=esskar,15.02.2007, 13:51]wenn dein rechner im dns eingetragen ist und du deine ipadresse weißt, kannst du auch mit

Code: (dl )

1
2

use Socket;
print gethostbyaddr( $ipaddr, AF_INET );

nachfragen![/quote]
Hallo esskar,

so klappt es auch fast.
Nur soll das Script jeweils nur den Hostnamen des Rechners ermitteln auf dem das Script ausgeführt wird. Somit möchte ich auch keine IP-Adresse angeben. Wenn ich also deinen Code wie folgt ausführe (ja die Variable hat keinen Wert zugewiesen bekommen)

Code: (dl )

1
2
3

use strict;
use Socket;
print gethostbyaddr( my $ipaddr, AF_INET );

wird folgendes ausgebeben:

Quote
Use of uninitialized value in gethostbyaddr at D:\DOKUME~1\FE~1.MAR\LO
<Hostname.Domainname>24 Drücken Sie eine beliebige Taste . . .

Der Fehlertext meckert sicherlich die leere Variable an. Wie könnte ich dass unterdrücken
Aber des Weiteren wird hinter dem Domainname (auch wenn ich der Variablen $ipaddr eine IP-Adresse zuweise immer die Zahl "24" ausgegeben.
Ich habe ja schon eine Lösung gefunden somit ist es nicht weiter tragisch. Aber diese Variante wäre wesentlich kürzer.
Gruß, Markus