Neue Registry mit alter vergleichen (Allgemeines zu Perl)

[thread]17678[/thread]

Neue Registry mit alter vergleichen

Tags: perl5 Win32::TieRegistry kopie registry Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+28 replies
s8jascho

2012-08-17 09:25
User since
2012-08-17
14 Artikel
BenutzerIn
Hallo.

Vielleicht gibt es genau dazu schon einen Thread, allerdings finde ich diesen trotz Forensuche nicht. Habe mir viele Ergebnisse angeschaut, aber genau dies scheint nicht dabei zu sein.

Hier also mein Problem:
Ich habe ein bereits existierendes Script, in welchem über Win32::TieRegistry mit der Registry arbeitet. Nun soll ausgegeben werden, welche Einträge in der Registry während des Vorganges geändert werden. Dazu muss ich mir, meiner Meinung nach, eine feste Kopie der Registry hives anlegen, da Tie ja eine Referenz abbildet.
Wie kann man also sicherstellen, dass man ein Abbild der Registry bekommt?

EDIT:
Vielleicht werde ich das noch ein wenig konkretisieren:
Beispiel:
Code (perl): (dl )

1 2 3 4 5

use Win32::TieRegistry; $Registry->Delimiter("/"); my $entries = $Registry->{"LMachine/System/CurrentControlSet/Control/TimeZoneInformation/"}; print $entries->{'/DaylightName'};
In $entries sind also alle Hashes des Zweiges enthalten. Den jeweiligen Wert bei bekanntem Namen kann ich auslesen. Somit ließe sich das auch vergleichen.

Aber:
1. Was ist bei unbekanntem Namen?
2. Ist $entries eine Kopie oder auch wieder nur eine Referenz, sprich wenn ich nun /DaylightName ändern würde, würde das dann direkt in die Registry geschrieben werden, oder ist das nur eine Änderung in $entries?

Viele Grüße
Jan
Last edited: 2012-08-17 10:30:58 +0200 (CEST)
- +14 replies
- Muffi
  
  2012-08-17 10:27
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Mein erster Versuch wäre, wenn man da OO benutzt davon zu erben und die Setzfunktion zu überschreiben.
  1 + 1 = 10
  - +13 replies
  - s8jascho
    
    2012-08-17 10:34
    
    User since
    2012-08-17
    14 Artikel
    BenutzerIn
    
    Objektorientierung in Perl ist für mich ein ganz neues Gebiet. Wie ließe sich das denn umsetzen? Ich habe noch einen EDIT eingefügt im ersten Post, vielleicht ist das auch ein Weg?
    - +12 replies
    - Muffi
      
      2012-08-17 10:37
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Das im Edit kann schon funktionieren.
      Irgendwie find ich nur die Vorgehensweise komisch erst was zu ändern und dann komplett nochmal durchzurödeln, weil man nicht mehr weiss was man geändert hat.
      Bauchgefühl.
      1 + 1 = 10
      - s8jascho
        
        2012-08-17 10:40
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Da gebe ich dir Recht. Ich habe das wohl nicht genau genug beschrieben.
        Ich starte ein Script, welches ein mir unbekanntes Script aufruft. Dieses unbekannte Script nimmt Änderungen in der Registry vor, die ich nicht kenne. Die erledigten Änderungen möchte ich mir zur Kontrolle ausgeben lassen, indem ich mir zuvor eine Kopie der Registry anlege.
      - +10 replies
      - s8jascho
        
        2012-08-17 11:21
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Also ich habe es getestet. Das $entries in meinem Edit ist auch wieder nur eine Referenz und dadurch nicht für meinen Zweck zu gebrauchen.
        
        +9 replies
        
        Linuxer
        
        2012-08-17 12:03
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Schau Dir doch mal dclone des Moduls Storable an.
        Damit soll, wenn ich mich richtig erinner, eine Kopie einer komplexen Datenstruktur möglich sein.
        
        Code (perl): (dl )
        
        my $copy_ref = dclone( $original_ref );
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +8 replies
        
        s8jascho
        
        2012-08-17 12:36
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Hmm, das scheint so nicht zu funktionieren. Also es gibt keine Fehler, nur wenn so benutzt, dann bildet es auch nur eine Referenz, d.h. ich habe alle Änderungen auch in dieser Kopie.
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $entries = $Registry->{"HKEY_LOCAL_MACHINE/[...]/COUNTRIES_FOR_QUALITY/l1"}; my $copy_ref = dclone( $entries ); $entries->{'/V1'}=["other","REG_SZ"]; print $entries->{'/V1'}; print $copy_ref->{'/V1'};
        
        Mache ich etwas falsch?
        Last edited: 2012-08-17 12:41:09 +0200 (CEST)
        
        +7 replies
        
        Linuxer
        
        2012-08-17 12:51
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Kann ich im Moment nicht erkennen.
        Ich weiß allerdings auch nicht, was das Modul im Hintergrund treibt.
        Vielleicht ist es nicht wirklich als reine Datenstruktur aufgebaut, sondern greift "live" in die Registry (mit tie lässt sich vermutlich sowas tun; der Modulname lässt sowas auch vermuten).
        Das könnte dann auch mit der Kopie so passieren, so dass die dann die Änderungen auch noch sieht.
        So genau kenne ich mich weder mit dclone noch mit Win32::TieRegistry aus.
        
        Mit einer "einfachen" Datenstruktur funktioniert es:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #! /usr/bin/perl use strict; use warnings; use Storable qw( dclone ); my $hRef = { foo => { bar => 123, } }; my $copy = dclone( $hRef ); $hRef->{foo}->{bar} = 456; require Data::Dumper; print Data::Dumper->Dump( [ $hRef, $copy ], [ wq( *hRef *copy ], );
        
        Schade.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +6 replies
        
        s8jascho
        
        2012-08-20 11:07
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        2012-08-17T10:51:30 Linuxer
        Schade.
        
        Ja wirklich.
        
        +5 replies
        
        Muffi
        
        2012-08-20 11:26
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Was du evtl. noch versuchen könntest ist, das ganze hart zu stringifizieren und zu hoffen, dass da nicht zu viel Magie in der Datenstruktur steckt, bei ders ihn zerschmeisst.
        
        Da ich ja immer JSON bei der Hand hab hätt ich mal:
        
        Code (perl): (dl )
        
        $copy = from_json(to_json($orig))
        
        probiert
        1 + 1 = 10
        
        +4 replies
        
        s8jascho
        
        2012-08-20 12:03
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Hmm.
        Ich habe json gerade mal installiert.
        
        Leider bekomme ich noch eine Fehlermeldung, die ich nicht interpretieren kann.
        
        Aufruf
        
        Code (perl): (dl )
        
        1 2
        
        my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"}; $copy = from_json(to_json($entries));
        
        Fehlermeldung
        Quote
        encountered object 'Win32::TieRegistry=HASH(0x3f7adc)', but neither allow_blessed nor convert_blessed settings are enabled at test2.pl line 9
        
        In line 9 steht die json Zeile.
        
        EDIT:
        Es bleibt natürlich immernoch als letzte Möglichkeit die Registry vor Bearbeitung in einer Datei abzuspeichern und dann nach der Bearbeitung mit der aktuellen Registry zu vergleichen. Zwar unschön, aber wenn alle Stricke reißen wohl eine funktionierende Möglichkeit.
        Last edited: 2012-08-20 12:23:27 +0200 (CEST)
        
        +3 replies
        
        Muffi
        
        2012-08-20 12:59
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Mist, das war die Hoffnung auf nicht zu viel Magie.
        
        Letzter Versuch:
        
        Code (perl): (dl )
        
        1 2 3
        
        use JSON -convert_blessed_universally; $copy = from_json(to_json($entries, { allow_blessed => 1, convert_blessed => 1 }));
        
        [EDIT]
        Und die Fehlermeldung heisst: Ich habe in der Datenstruktur ausser einfachen Datentypen auch Objekte (entspricht ungefähr blessed) gefunden und weiss nicht was ich damit tun soll bzw. wie ich sie serialisieren soll.
        Last edited: 2012-08-20 13:05:46 +0200 (CEST)
        1 + 1 = 10
        
        +2 replies
        
        s8jascho
        
        2012-08-20 13:19
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Okay, die Fehlermeldung existiert schon einmal nicht mehr.
        Allerdings ist die Variable $copy nach Aufruf undefined.
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use Win32::TieRegistry; use JSON -convert_blessed_universally; $Registry->Delimiter("/"); my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"}; $copy = from_json(to_json($entries, { allow_blessed => 1, convert_blessed => 1 }));
        
        Muffi
        
        2012-08-20 13:34
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Dann weiss ich in der Richtung auch nicht mehr weiter.
        Entweder ist es meinem Hirn grad zu heiss, oder das Modul macht vogelwilde Sachen bei den zurückgegebenen Sachen.
        
        Und wenn ich ein plötzlich auftauchendes $Registry im Code seh tipp ich eher auf zweiteres.
        1 + 1 = 10
- +13 replies
- Gast gast
  
  2012-08-17 12:18
  
  Warum die Daten nicht duplizieren?
  Siehe Data-Clone, Clone u. a.
  Last edited: 2012-08-17 12:23:10 +0200 (CEST)
  - +12 replies
  - s8jascho
    
    2012-08-17 12:30
    User since
    2012-08-17
    14 Artikel
    BenutzerIn
    
    Gute Frage. Ich kenne mich mit Perl zu wenig aus um verschiedene Vor- und Nachteile der einzelnen Module zu erkennen. Vielleicht annst du mir ja dabei helfen das richtige zu wählen? Gibt ja wohl mehrere Lösungen. Meine bisher scheinbar funktionierende:
    
    Code (perl): (dl )
    
    1 2
    
    my $hive = $Registry->{"HKEY_LOCAL_MACHINE/[...]/"}; my %hash_copy = %{$hive};
    
    Vielleicht hat ja eine deiner, oder meiner Lösung einen Vorteil wenn es später darum geht durch die Daten zu iterieren?
    
    Viele Grüße
    Jan
    Last edited: 2012-08-17 12:34:20 +0200 (CEST)
    - +11 replies
    - Muffi
      
      2012-08-17 13:28
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Deine Lösung kopiert allerdings nur die eine Ebene. Untereklemente bleiben Referenzen. Probier mal eins der Clone-module, ob die tun.
      1 + 1 = 10
      - +10 replies
      - s8jascho
        
        2012-08-20 10:29
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Moin moin.
        
        Ich habe das Clone-Modul einmal ausprobiert und auch dieses scheint nur wieder Referenzen zu beherbergen, vorausgesetzt ich benutze es richtig.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        #! /usr/bin/perl use Clone qw(clone); use Win32::TieRegistry; $Registry->Delimiter("/"); my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"}; my $copyOfEntries = clone($entries); print $entries->{'/SnapshotMonitors'}; print $copyOfEntries->{'/SnapshotMonitors'}; $entries->{'/SnapshotMonitors'} = ["2","REG_SZ"]; print $entries->{'/SnapshotMonitors'}; print $copyOfEntries->{'/SnapshotMonitors'}; $entries->{'/SnapshotMonitors'} = ["2","REG_SZ"];
        
        Die richtige Ausgabe bei meinen Einstellungen in der Registry müsste eigentlich: 1121 lauten. Ausgegeben wird allerdings: 1122.
        
        +5 replies
        
        Muffi
        
        2012-08-20 13:48
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Kriegt das Modul eigentlich mit, wenn sich die Registry von aussen ändert?
        
        Also Key auslesen, langer sleep Registry per Hand editieren, Key nochmal auslesen.
        1 + 1 = 10
        
        +3 replies
        
        s8jascho
        
        2012-08-21 07:21
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Guten Morgen.
        
        Gute Frage. Habe ich noch nie getestet. In welche Richtung gehen denn da deine Gedanken?
        
        +2 replies
        
        Muffi
        
        2012-08-21 08:33
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Wenn ers nicht mitkriegt kann man ja mit new ein zweites Registryobjekt nach den Änderungen machen und dann altes und neues vergleichen.
        1 + 1 = 10
        
        s8jascho
        
        2012-08-21 10:30
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Ich habe mir mal new und open mit den Beispielen die in der Docu zu Win32::TieRegistry stehen angeschaut.
        Wenn ich das richtig interpretiere würde sogar new genau das machen was ich brauche?
        
        Leider funktioniert es auch nicht. Wenn ich Die wie folgt benutze
        
        Code (perl): (dl )
        
        $copy = new Win32::TieRegistry "LMachine";
        
        dann wird $copy beim debuggen als undefined ausgegeben. Woran kann das liegen? Das gleiche übrigens bei allen anderen Varianten die auf der Seite (CPAN - Win32::TieRegistry) vorgestellt werden.
        
        Gast gast
        
        2012-08-21 09:29
        
        Änderungen in der Registry werden sowohl bei Original als auch Clone aktualisiert.
        Last edited: 2012-08-21 09:33:18 +0200 (CEST)
        
        +4 replies
        
        topeg
        
        2012-08-21 11:11
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Clone ist schon der richtige weg. Leider geht das Modul zu gründlich vor. Das heißt es kopiert auch versteckte Objekte die weiterhin eine Verbindung zur Registry haben. Die Lösung ist ein ganz einfaches Clone selbst zu schreiben:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
        
        sub my_clone { my $ref=shift; my $ret; my $type=ref($ref); if( $type eq 'ARRAY' ) { $ret=[]; for(@$ref) { push(@$ret,my_clone($_)); } } elsif( $type eq 'HASH' ) { $ret={}; while(my ($k,$v)=each(%$ref) ) { $ret->{$k}=my_clone($v); } } elsif($type) { die "Can't clone $type\n"; } # <= Nur Arrays und Hashes else { $ret="$ref"; } # <= um auch die letzten versteckten Objekte zu eleminieren return $ret; }
        
        Aufruf: my $copy=my_clone($original);
        Das ist im Vergleich zu Clone fürchterlich langsam und unvollständig, sollte aber machen was du dir wünschst.
        
        +3 replies
        
        s8jascho
        
        2012-08-21 11:15
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Hmm, interessanter Ansatz, aber folgende Fehlermeldung erscheint, die du ja selber eingebaut hast:
        Can't clone Win32::TieRegistry
        Last edited: 2012-08-21 11:18:08 +0200 (CEST)
        
        +2 replies
        
        topeg
        
        2012-08-21 11:48
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wenn du es so benutzt?
        
        Code (perl): (dl )
        
        1 2
        
        my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"}; my $copy = my_clone($entries);
        
        versuch es mal so:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
        
        sub my_clone { my $ref=shift; my $ret; my $type=ref($ref); if( $type eq 'ARRAY' ) { $ret=[]; for(@$ref) { push(@$ret,my_clone($_)); } } elsif( $type eq 'HASH' ) { $ret={}; while(my ($k,$v)=each(%$ref) ) { $ret->{$k}=my_clone($v); } } elsif($type eq 'Win32::TieRegistry') { $ret={}; while(my ($k,$v)=each(%$ref) ) { $ret->{$k}=my_clone($v); } } elsif($type) { die "Can't clone $type\n"; } else { $ret="$ref"; } # <= um auch die letzten versteckten Objekte zu eleminieren return $ret; }
        
        Das macht aus dem Objekt ein Hash.
        
        s8jascho
        
        2012-08-27 08:29
        
        User since
        2012-08-17
        14 Artikel
        BenutzerIn
        
        Moin moin.
        
        Sorry, dass ich erst jetzt antworte, aber hatte Urlaub und war unterwegs die ganze Zeit.
        
        Also bis jetzt scheint es einwandfrei zu funktionieren. Ich werde es weiter testen und hier Bescheid geben, wenn es sich nicht so verhält wie es soll.
        
        Vielen Dank.

View all threads created 2012-08-17 09:25.