Perl: Auslesen der Registry

[chaertl]

Hallo Zusammen,

bin gerade dabei ein Perl Skript zu erstellen, welches prüfen soll, ob DHCP läuft oder nicht. Das Problem ist den Wert der in der Registry steht in eine Variable zu bringen. Alle Werte die unter .../Tcpip/... in der Registry stehen auszulesen geht, aber eben nur das eine nicht.

Wäre sehr dankbar wenn mir jemand helfen könnte.

[themaster]

Perl selbst kann nicht aus der Registry lesen, schon alleine deshalb weil Perl ja platformunabhängig ist.

Aber bei cpan.org gibt es ein Zusätzmodul mit dem man auf die Windows-Registry zugreifen kann.

Guck dir das hier mal an:

http://search.cpan.org/doc/TYEMQ/Win32API-Registry-0.21/Registry.pm

oder das hier:

http://search.cpan.org/doc/GSAR/libwin32-0.18/TieRegistry/TieRegistry.pm

Die obere Variante ist funktionsorientierung und entspricht genau den Funktionen aus winreg.h

Die andere Version bildet die Registryzugriffe Objektorientiert ab.

[chaertl]

Das auslesen der Registry geht schon, auch ohne Zusatzmodul. Denke jedenfalls das es ohne ist. Du kannst die Registry über use WIN32::TieRegistry und über WIN32::Registry öffnen. Der Interpreter kapiert das dann. In Foreach schleifen kann man alles auslesen, aber eben nicht einen bestimmten Wert.

[themaster]

OK. Dann habe ich mich geirrt.

Bei dir sind die Modul wahrscheinlich von vorn hereininstalliert.

Mit use TieRegistry bindest du genau, dass Modul ein, dass ich oben beschreiben habe.

Wieso aber kannst du nicht auf einen einzelnen Wert zugreifen?

Ich habe mit dem Modul jetzt noch nicht gearbeitet.

Aber wenn ich dir die Doku dazu ansehe, dann müßte das doch mit dem Methode GetValue('beispielvalue') funktionieren, oder?

[chaertl]

Habe es jetzt mit einer sehr umständlichen Funktion hinbekommen. Habe es auch noch mit GetValues versucht, hat aber nicht so hingehauen wie es sollte.

trotzdem danke.