Hash kopieren (gelöst) (Allgemeines zu Perl)

[thread]19924[/thread]

Hash kopieren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+10 replies
Jiep1963

2015-12-14 12:56
User since
2008-08-20
37 Artikel
BenutzerIn
Bevor ich hier nachfrage, habe ich über meine Bücher und Tante Google recherchiert. Es geht trotzdem nicht!

Am Schluss soll das alte (persitente Hash) überkopiert werden. Bisher sind mir keine Fehler bei '%hash_1 = %hash_2' aufgefallen. Aber hier scheint das nicht zu funktionieren. Auch dann nicht wenn ich vorher loesche (und wie man sehen kann habe ich zwei Lösch-"Versuche" hinterlegt).

Hinweis: Im Kern meiner Frage geht es nur um die Funktionen 'f_rw_FileMd5Sum_PerlDB', exakt um >>> 'f_copy_hash'. <<<
Die Funktion 'f_search_Alarm' habe ich nur für den Kontext zusätzlich mit angegeben. Aber in dieser Funktion konnte ich durch die 'print LOG DEVELOPERTEST...' herausfinden, dass das alte Hash nicht mit den neuen Daten überschrieben wird sondern (fälschlicher weise) seine alten Daten behält.

Was mache ich also falsch?

Danke für Lösungshinweise!!!
Code: (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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

# ----------8<-------- schipp ############################## # # 2.) Persitentes Hash # * einlesen # * ueberschreiben # # f_rw_FileMd5Sum_PerlDB # my $PerlDB = $bin_root . "/.File_Md5Sum_PerlDB"; my $PfadFile_PDB ; my $Md5_PDB ; # my %h_FileMd5Sum_PerlDB; <<< siehe: f_exit # sub f_rw_FileMd5Sum_PerlDB { dbmopen( %h_FileMd5Sum_PerlDB, $PerlDB , 0660 ) || f_die( $ScriptName . "::FATAL: Konnte die persistente Hash-Datei nicht oeffnen: '" . $PerlDB . "'\n" ); # #print "\n\nDEVELOPERTEST 07::h_FileMd5Sum_PerlDB\n" ; foreach my $z ( sort( keys( %h_FileMd5Sum_PerlDB ) ) ) { print $z . " :: " . $h_FileMd5Sum_PerlDB{ $z } . "\n"; }; } #EO f_rw_FileMd5Sum_PerlDB ### # ############### # f_copy_hash # sub f_copy_hash { for ( keys( %h_FileMd5Sum_PerlDB ) ) { delete $h_FileMd5Sum_PerlDB{$_}; }; # Alt-Hash-Daten loeschen. %h_FileMd5Sum_PerlDB = (); # Loeschen 2.te %h_FileMd5Sum_PerlDB = %h_File_Md5Sum_dat; # Ab jetzt befinden sich die neuen Daten auf der Festplatte. } #EO f_copy_hash ### # ----------8<-------- schipp ######################################################################## # # f_search_Alarm # # Alle Dateien, bei denen sich die Md5Sum geaendert hat, werden in # eine Alram-Liste ueberfuert. # # Vorgehen: # 1.) Alle Files aus '%h_File_Md5Sum_dat' mit Eintraegen aus # '%h_FileMd5Sum_PerlDB' (Kein Ober- Untermengen-Vergleich) # auf 'Md5Sum' vergleichen. # 1.1) Ist ein Unterschied in der Md5Sum zu erkennen, wird die # Datei in die Alram-Liste eingetragen. # my %h_Md5Sum_Alarm; # sub f_search_Alarm { foreach $Key_FileMd5 ( keys( %h_File_Md5Sum_dat ) ) { foreach $Key_PerlDB ( keys( %h_FileMd5Sum_PerlDB ) ) { $run_through++; if( $Key_FileMd5 eq $Key_PerlDB ) { #print "1:1 Key_PerlDB = " . $Key_PerlDB . "\t\tMd5Sum = " . $h_FileMd5Sum_PerlDB{ $Key_PerlDB } . "\n"; #print "1:1 Key_FileMd5 = " . $Key_FileMd5 . "\t\tMd5Sum = " . $h_File_Md5Sum_dat{ $Key_FileMd5 } . "\n\n"; ################## # Md5Sum-Vergleich if( $h_File_Md5Sum_dat{ $Key_FileMd5 } ne $h_FileMd5Sum_PerlDB{ $Key_PerlDB } ) { print LOG "DEVELOPERTEST::h_File_Md5Sum_dat{ Key_FileMd5 } = '" . $h_File_Md5Sum_dat{ $Key_FileMd5 } . "' = '" . $Key_FileMd5 . "'\n"; print LOG "DEVELOPERTEST::h_FileMd5Sum_PerlDB{ Key_PerlDB } = '" . $h_FileMd5Sum_PerlDB{ $Key_PerlDB } . "' = '" . $Key_PerlDB . "'\n\n---\n\n"; $h_Md5Sum_Alarm{ $Key_FileMd5 } = $h_File_Md5Sum_dat{ $Key_FileMd5 } } } #EO if Key_PerlDB = Key_FileMd5 } #EO foreach h_File_Md5Sum_dat } #EO foreach h_FileMd5Sum_PerlDB #print "\n\nDEVELOPERTEST 10::h_Md5Sum_Alarm\n" ; foreach my $z ( sort( keys( %h_Md5Sum_Alarm ) ) ) { print $z . " :: " . $h_Md5Sum_Alarm{ $z } . "\n"; }; } #EO f_search_Alarm ### # ----------8<-------- schipp
- +4 replies
- Raubtier
  
  2015-12-14 13:23
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Was du hier genau falsch machst, weiß ich nicht. Mir sind aber zwei Dinge aufgefallen:
  1) im Beispielcode wird f_copy_hash nirgends aufgerufen.
  2) Du hast viel zu viele globale Variablen! Deine Funktionen operieren alle auf globalem State, anstatt Parameter zu nehmen. Das ist sehr schlecht, weil es das ganzr unnötig schwierig zu testen macht!
  - +2 replies
  - Jiep1963
    
    2015-12-14 13:37
    
    User since
    2008-08-20
    37 Artikel
    BenutzerIn
    
    Hallole,
    
    > ... im Beispielcode wird f_copy_hash nirgends aufgerufen ...
    
    das ist nur ein Ausschnitt aus einem größerem Programm (ca 1.500 Code-Zeilen). Daher auch die '-------8<-----' Hinweise. :-)
    - renee
      
      2015-12-14 14:26
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Hast du mal geprüft, ob in %h_File_Md5Sum_dat auch wirklich das drin steckt, was Du erwartest?
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
  - Muffi
    
    2015-12-15 10:27
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Volle Zustimmung.
    Schau, dass du die globalen Variablen wegbekommst.
    Bei einem 1500 Zeilen-Programm muss das eine ganze Latte sein.
    
    Und 1500 Zeilen in einer Datei ist eh schon in Richtung obere Grenze was noch gut handlebar ist. Falls das noch weit mehr wird auch hier gucken, ob man ein wenig mehr Struktur reinkriegt.
    1 + 1 = 10
- +5 replies
- bianca
  
  2015-12-14 14:20
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ich würde Zwischenergebnisse printen und den Code immer weiter reduzieren bis man den ersten auftretenden Fehler einem Kommando zuordnen kann. Und dann perldoc -f Kommando in der Konsole.
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - Jiep1963
    
    2015-12-15 17:02
    
    User since
    2008-08-20
    37 Artikel
    BenutzerIn
    
    > 2) Du hast viel zu viele globale Variablen!
    > Schau, dass du die globalen Variablen wegbekommst.
    @Raubtier, @Muffi,
    Diese "globalen" Variablen werden in anderen Funktionen immer wieder benutzt, weil es immer die selben Inhalte sind auf die vergleichend mit unterschiedlichen Aufgaben zugegriffen wird. Es bringt also nichts ständig kopien von "diese" zu machen oder Referenzen zu ziehen. "Wenn" ich in irgendwelchen Funktionen durch Reduzierungen (Ausschluss oder was auch immer) anstellen muss, "dann" sind diese Kopien für die Funktion lokal (so ungefähr). Und ich kann Euch definitiv versichern, dass es daran nicht liegt.
    
    > Und 1500 Zeilen ... ob man ein wenig mehr Struktur reinkriegt.
    @Muffi,
    Ja, Struktur ist drin! Die ganze Perl-Script-Datei ist, wenn man es so sieht, ein in sich geschlossenes Objekt mit "einer Aufgabe".
    Streng genommen verteilt es sich auf 3 Perl-Scripte und 3 Shell-Scripte. Allerdings ist dann auch die Variablen-Verwaltung abgegrenzt, z.B. durch Referenz-Kopien...
    
    Liebe Helfer, bitte laßt uns jetzt aber darüber keinen Glaubenskrieg führen.
    Ich habe fast 3.000.000 andere Zeichen für Scripte eingehackt (Shell, Perl, HTML, sed, awk, C,) und der funktioniert auf diesem System ebenso.
    
    > Ich würde Zwischenergebnisse printen
    @bianca,
    Habe ich bereits vor und auch nach meiner Anfrage hier gemacht. Und manchmal komme ich dann einen Tag später selbst auf die Lösung. Ist aber hier nicht der Fall. TATSACHE ist (immer wieder), dass aller anderer Code (bezogen auf die Aufgabe) genau das macht was ich will. Was definitif einfach nicht geht ist, dass ich das persitente Hash nicht überschreiben kann.
    
    Es gibt also nicht viele Möglichkeiten:
    
    * Ich mache beim Öffnen der Hash-Datei irgend etwas falsch.
    * Ich mache beim Kopieren irgend etwas falsch.
    * "dbmopen" ist schon so veraltet, dass niemand (außer mir), den Fehler bemerkt hat,
    weil Gott und die (Perl-)Welt bereits nur noch mit "tie" arbeitet. (*)
    * Mein Perl (5, Vers. 12, SubVers. 12 (5.12.3) spinnt.
    
    Wenn niemand den Fehler aus diesem Pool der Möglichkeiten kennt, werde ich einfach die Hash-Datei als Text-Datei Zeile für Zeile mit einem FS speichern und diese dann beim Einlesen wieder in ein Hash überführen. Wäre als Hash-Datei einfach nur bequemer gewesen. ODER jemand kann mir hier eine 'tie'-Alternative (für Dummis) aufzeigen (die ich dann anhand des praktischen Beispiels studieren kann), weil ich die Beispiele (nebst verstreuten Text) aus den Perl-Büchern nicht verstehe.
    
    (*) Perl benutze ich für nur Text-Vergleiche (oder ähnliches). Ich muss nicht mehr oft damit arbeiten - die Programmierarbeit geht aufs Ende zu. Statt dessen arbeite ich jetzt auf Linux viel mit der 'bash'. Es lohnt sich also eigentlich nicht wirklich Perl fachlich im Selbstudium noch weiter zu vertiefen (bezogen auf 'tie'); dann könnte ich auch gleich eine neue Sprache (wie z.B. python, PHP) ausprobieren, von denen "ich" im Vorfeld nicht weiß, ob die das dann auch so erbringen was ich unter Perl gewohnt bin... Ihr seht, diese fachliche Frage ist jetzt wie ein Ei - entweder est kippt links oder rechts um... ;-)
    
    Darf ich noch auf Hilfe hoffen, oder soll ich einfach auf die Text-Datei umprogrammieren?
    
    Auf alle Fälle: Vielen vielen Dank für die bisherigen Anregungen !!!
    
    Gruß Achim
    - +3 replies
    - Raubtier
      
      2015-12-15 17:21
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      Erstens: da brauchst du gar nicht zu diskutieren, viele globale Variablen sind immer schlecht. Eine Referenz zu übergeben kostet praktisch nichts. So viel Performacevorteile kannst du gar nicht gewinnen, die nicht durch Entwicklungszeit wieder verlorengehen (Größenordnungen!). Niemand hat gesagt, dass du große unveränderliche Objekte kopieren sollst.
      
      Zurück zum Problem: du wirst irgendwo was falsch gemacht haben. Hier ein kleines Testprogramm inkl Ausgabe (das verhält sich wie gewünscht, kein Problem mit Löschen):
      
      Programm:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      use strict; use warnings; use Data::Dumper; dbmopen(my %h_FileMd5Sum_PerlDB, "test.dbm", 0660 ); print "Aktuell drin:\n"; print Dumper \%h_FileMd5Sum_PerlDB; if ($ARGV[0] && $ARGV[0] eq 'clean') { print "Leere Hash.\n"; %h_FileMd5Sum_PerlDB = (); } else { print "Fuege Wert hinzu.\n"; $h_FileMd5Sum_PerlDB{rand()} = rand(); } dbmclose %h_FileMd5Sum_PerlDB;
      
      Ausgabe:
      
      Code: (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 33 34 35
      
      [17:19:18] ~/test$ perl dbm1.pl Aktuell drin: $VAR1 = {}; Fuege Wert hinzu. [17:19:21] ~/test$ perl dbm1.pl Aktuell drin: $VAR1 = { '0.0638814420412643' => '0.945874316458688' }; Fuege Wert hinzu. [17:19:22] ~/test$ perl dbm1.pl Aktuell drin: $VAR1 = { '0.499142777963669' => '0.14024860186419', '0.0638814420412643' => '0.945874316458688' }; Fuege Wert hinzu. [17:19:23] ~/test$ perl dbm1.pl clean Aktuell drin: $VAR1 = { '0.499142777963669' => '0.14024860186419', '0.0638814420412643' => '0.945874316458688', '0.516201025431172' => '0.596852673524157' }; Leere Hash. [17:19:25] ~/test$ perl dbm1.pl Aktuell drin: $VAR1 = {}; Fuege Wert hinzu. [17:19:28] ~/test$ perl dbm1.pl Aktuell drin: $VAR1 = { '0.217905852102803' => '0.371467244652198' }; Fuege Wert hinzu.
      - +2 replies
      - Jiep1963
        
        2015-12-16 10:17
        
        User since
        2008-08-20
        37 Artikel
        BenutzerIn
        
        10.17 Uhr
        O.k. Ich suche erneut. Jetzt will ich es wissen. Dann kann es nur ein logischer Fehler in Bezug auf die Variablen sein. Ich melde mich wieder.
        
        -------------------------
        
        14.03 Uhr
        Ich habe wirklich keine Ahung was ich heute anders mache, aber jetzt gehts. In 'f_copy_hash' fing ich gerade an 'print's zu hinterlegen + gestern auskommentierte Codezeilen dazu (die ich völlig neu schreiben wollte) habe ich nur wieder aktiviert. Mehr ist mir nicht bewusst getan zu haben.
        Dann mit mehrfachen Test-Aufrufen zeigte plötzich, dass Dateiveränderungen wie gewünscht nur einmalig angezeigt werden und nicht ständig im loop (wie gestern). Mit anderen Worten, die persistente Hash-Datei wurde aktualisiert, so dass ein neuer Vergleich in 'f_seach_Alarm' keine Veränderngen ausgeworfen hat.
        Einigen wir uns darauf das das Problem mal wieder zwischen Stuhl und Tastatur zu finden ist ;-)
        Aber da ich nicht weis was passiert ist, - was mich deshalb auch etwas verunsichert - kann ich nur hoffen, dass es ab sofort wirklich läuft und nicht in naher Zukunft plötzlich ....
        
        RIESENDANKESCHÖN an alle die sich Gedanken gemacht haben und Anschubser zur Hilfe gegeben haben!!!
        
        Gruß Achim
        Last edited: 2015-12-16 14:20:14 +0100 (CET)
        
        Jiep1963
        
        2015-12-17 11:12
        
        User since
        2008-08-20
        37 Artikel
        BenutzerIn
        
        Es muss die Perl-Hash-Datei (...pag ...dir) gewesen sein, die kaput war. Denn weil sich keine Lösung für mein Problem abzeichnete, habe ich die Scriptzeilen um 'dbmopen' deaktivert und die beiden Hash-Datein auf der Festplatte gelöscht.
        Dann durch Eure Aufforderung mich noch mal mit dem Thema zu beschäftigen, habe ich die Scriptzeilen nur wieder aktiviert. Mit dem ersten Test-Run wurden auch die beiden Hash-Dateien wieder angelegt ..... und - wie duch ein Wunder: Alles funktionierte wie vorgesehen.

View all threads created 2015-12-14 12:56.