Verzeichnispfade als Hash-Key (Allgemeines zu Perl)

[thread]19891[/thread]

Verzeichnispfade als Hash-Key

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+24 replies
Jiep1963

2015-11-18 15:04

User since
2008-08-20
37 Artikel
BenutzerIn

Hallo Mitglieder,

es sollen ganze Verzeichnispfade ab / (root) bis zum Dateinamen eingelesen werden. Jetzt kann es natürlich vorkommen, dass auch Leerschritte darin enthalten sind. Und wenn ich das richtig verstanden haben, dann ist die Stringlänge im Hash-Key ist zwar nicht "elegant" - soll aber kein Problem sein, weil dieser auch nichts anderes ist, wie eine Skalar-Varible.
Anders soll es aber beim Leerschritt (space) sein. Frage also, wie bekomme ich also eine derartige Variable:
/.../.../.../Pfad mit Leerschritten/Datei Name mit Leerschritten.xxx
als Hash-Key gespeichert - bzw. kann umgekehrt dann auch über einen Key-Vergleich wieder darauf zugreifen.

Kontext bzw. Ziel: Jede Datei (die namentlich mehrfach vorkommen kann, dann aber in unterschiedlichen Verzeichnissen) soll einen 'md5sum'-Wert erhalten, der dann immer wieder kontrolliert wird.

Gruß Achim

NS: Ich bin nicht zu faul um selbst zu lesen, aber... Also komme ich nicht um eine Frage im Forum drumherum. Auch bin ich mir grundsätzlich nicht sicher, ob ich micht mit meinem Vorhaben nicht auf sehr dünnen Eis bewege, dass mehr unverlässig als nutzbringend ist.
- Muffi
  
  2015-11-18 15:43
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Ein Leerzeichen in einem Hashkey ist ein Buchstabe wie jeder Andere auch.
  1 + 1 = 10
- +16 replies
- Raubtier
  
  2015-11-18 16:21
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Ehrlich gesagt werde ich nicht ganz schlau aus deiner Frage. Was hat die Stringlänge mit alldem zu tun? Oder war das nur als Beispiel für einen Key gedacht?
  
  Quote
  Anders soll es aber beim Leerschritt (space) sein.
  
  Möchtest du etwas anderes haben oder meinst du damit, dass jemand (wer?) behauptet, dass Leerschritte in Strings Probleme bereiten?
  
  Probiere doch einfach mal aus!
  
  Code (perl): (dl )
  
  1 2
  
  my %h = ("key mit spaces" => 23, "noch mehr spaces" => 42); say $h{"key mit spaces"};
  - +15 replies
  - Muffi
    
    2015-11-18 16:33
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Vielleicht - vielleicht - vielleicht hat er festgestellt, dass die erste Zuweisung funktioniert und die 2. nicht.
    
    Code (perl): (dl )
    
    1 2 3
    
    my %hash; $hash{foo} = 1; $hash{bar mit sosse} = 2;
    
    1 + 1 = 10
    - +14 replies
    - Jiep1963
      
      2015-11-18 17:06
      
      User since
      2008-08-20
      37 Artikel
      BenutzerIn
      
      Vielen Dank soweit.
      
      Stringlänge: Irgendwo im Internet wurde gesagt, dass man Verzeichniss-Pfade als Keys nicht nehmen sollte. In meinen Perl-Büchern wurde jedoch nichts dergleichen negativ kommentiert.
      
      Leerschritte: In einem Perl-Buch wurde (irgendwo) darauf hin gewiesen, dass Leerschritte in Keys (von Hash) problematisch sind. Aber der abgebildetet Beispiel-Code war so professionell, dass ich nichts verstanden habe. Kann ich z.B. eine Varible mit Pfad+Dateinamen (die vielleicht auch Leerschritte enthält so z.B. anwenden:
      
      $MeinHash{ q/$PfadFileString/ } = $Md5SumString
      
      Mein Vorhaben "Verzeichnisspfad + Dateiname als Hash-Key" scheint wohl so skurril, dass ich aus den bisherigen gelesenen Einzelinformationen keine wirklichen Anhaltspunkte entnehmen konnte "ob das überhaupt machbar ist" oder wenn ja "wie ich es technisch umsetzen kann" entnhemen konnte.
      - +11 replies
      - hlubenow
        
        2015-11-18 17:11
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Raubtier hatte oben schon geschrieben, daß man Leerzeichen in Hash-Keys benutzen kann, wenn man nur Anführungszeichen um den String macht.
        
        +10 replies
        
        Jiep1963
        
        2015-11-18 17:32
        
        User since
        2008-08-20
        37 Artikel
        BenutzerIn
        
        Dann ist also nachfolgende Vorgehensweise die richtige:
        
        $MeinHash{ "$PfadFileString" } = $Md5SumString;
        
        Ferner entnehme ich -weil keiner Warnungen schreibt- das die Länge des Strings "$PfadFileString" für einen Hash-Key absolut unproblematisch ist - oder ?
        
        VIELEN DANK !
        
        Gruß Achim
        
        +7 replies
        
        Raubtier
        
        2015-11-18 18:08
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Die Quotes sind hier überflüssig. Sie sind nur dann nötig, wenn du direkt einen String mit Spaces schreiben willst. Um eine Variable musst (und solltest) du keine Quotes setzen. Perl ist nicht Shell.
        
        Und kannst du mal genauer erklären, was du mit der Länge willst? Du kannst natürlich jede beliebige Zahl als Key verwenden. Aber mehrere Pfade können die gleiche Länge haben, was soll das also?
        Last edited: 2015-11-18 18:10:10 +0100 (CET)
        
        +6 replies
        
        Gast Achim Pabel
        
        2015-11-19 10:46
        
        Hallo Raubtier,
        hallo @all,
        
        > [Raubtier]: was soll das also?
        
        Ich will die Linux-Verzeichnisse scannen, ob sich interne OS-Dateien verändert haben, wie z.B. duch Manipulation von Hackern. Daher "gesamter Pfad" + "Datei Name". Daher auch "/pfad/.../.../Dateiname" + "Md5Sum" der Datei. Ein persitentes Hash auf der HD die im Vergleich zu einer akutellen Hash im Speicher, usw. usw....
        Natürlich sind mir bisher noch keine Leerschritte bei Linux-Systemen aufgefallen. Trotzdem will ich diesem Umstand einfach nur berücksichtigen.
        Bei meinen eigenen recherchen über Tante Google (+ meinen schlechten Englischkenntnissen) und dem sehr professionellen (und damit schwer zu verstehenen) Beispielen aus meinen deutschen Perl-Büchern bin ich irgendwann zum Schluss gekommen, dass ich im Forum nachfragen muss!
        
        Und wenn ich Deine Aussage jetzt richtig verstehe "Perl ist nicht Shell." dann reicht also:
        
        $MeinHash{ $PfadFileString } = $Md5SumString;
        
        völlig aus, auch dann, wenn der Pfad oder der Dateiname einen Leerschritt enthält. Damit wäre eigentlich Frage Nr. 1 beantwortet wenn ich nicht durch nachfolgende Aussage erneut verunsichert wäre:
        
        > [hlubenow]: Raubtier hatte oben schon geschrieben, daß man Leerzeichen
        > in Hash-Keys benutzen kann, wenn man nur Anführungszeichen um den
        > String macht.
        
        Demnach müsste ich dann doch wieder
        
        $MeinHash{ "$PfadFileString" } = $Md5SumString;
        
        verwenden.
        
        Gretchenfrage: Welche Aussage ist denn in diesem Fall richtig???
        
        -------
        
        > Was hat die Stringlänge mit alldem zu tun?
        
        Das wäre von mir Frage Nr. 2
        Mit meinem schlechten Englisch habe ich auf einer Perl-Seite verstanden, dass man einen Pfad als Hash-Key nicht nutzen soll, weil der zu lang ist. Scheinbar ist noch jemand auf eine ähnliche Idee gekommen.
        Allerdings habe ich nirgends anderswo diese Warnung erneut gelesen. Darum frage ich diesbezüglich hier im Forum auch noch mal nach.
        
        Es bringt ja nichts, wenn durch "Zufall" mein Mist irgendwie läuft und keine Fehlermeldung ausspuckt, aber tatsächlich der Kram einfach logisch falsch (und damti für die Katz) ist!
        Last edited: 2015-11-19 10:49:31 +0100 (CET)
        
        +3 replies
        
        GwenDragon
        
        2015-11-19 10:59
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Schau selbst:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        use strict; use warnings; use 5.010; my $pfad = '/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/blah/BO OOH.BAR'; my %hash = ( $pfad => '123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF123456FFCAFFEEDEADBEEF' ); say for keys %hash;
        
        ergibt:
        /blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/b lah/bl ah/blah/blah/BO OOH.BAR
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Jiep1963
        
        2015-11-19 11:40
        
        User since
        2008-08-20
        37 Artikel
        BenutzerIn
        
        Vielen Dank für Deine Mühe und das Demo!
        Last edited: 2015-11-19 11:45:04 +0100 (CET)
        
        GwenDragon
        
        2015-11-19 12:09
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Damit du siehst, dass lange Zeichenketten mit Leerzeichen als Hash-Key sehr wohl möglich sind und nicht alle Informationen, die du aus dem Internet oder irgendwo gelesen hast, allgemeingültig sein müssen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Raubtier
        
        2015-11-19 11:37
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Guest Achim Pabel
        Und wenn ich Deine Aussage jetzt richtig verstehe "Perl ist nicht Shell." dann reicht also:
        
        $MeinHash{ $PfadFileString } = $Md5SumString;
        
        völlig aus, auch dann, wenn der Pfad oder der Dateiname einen Leerschritt enthält.
        
        Ja, richtig.
        
        Quote
        > [hlubenow]: Raubtier hatte oben schon geschrieben, daß man Leerzeichen
        > in Hash-Keys benutzen kann, wenn man nur Anführungszeichen um den
        > String macht.
        
        Demnach müsste ich dann doch wieder
        
        $MeinHash{ "$PfadFileString" } = $Md5SumString;
        
        verwenden.
        
        Nein. Hlubenow hat richtig geschrieben "um den String". Wenn du also direkt einen String reinschreibst, brauchst du natürlich die Quotes. Wenn der String aber in einer Variablen ist, dann nicht.
        
        Also:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $hash{"irgendwas mit spaces"} = 0; # oder: my $key = "irgendwas mit spaces"; $hash{$key} = 0;
        
        Du kannst auch "$key" verwenden, aber das bedeutet: erzeuge mir einen neuen String und setze in diesem neuen String dann die Variable entsprechend ein. Da kommt hier natürlich dasselbe heraus, aber es ist überflüssig, wenn man nicht extra einen neuen String will.
        
        Quote
        Mit meinem schlechten Englisch habe ich auf einer Perl-Seite verstanden, dass man einen Pfad als Hash-Key nicht nutzen soll, weil der zu lang ist.
        
        Ich sehe kein Problem mit langen Pfaden als Keys.
        
        Was du natürlich machen könntest, ist was anderes: wenn du die Dateien
        /ganz_langer_Pfad/a.txt und /ganz_langer_Pfad/b.txt hast, könntest du natürlich einen Hash of Hashes machen: im "oberen" Hash speicherst du den Pfad und darunter dann ein Hash, in dem nur die Dateien sind. Aber erst Gedanken machen, wenn du Probleme bekommst.
        
        Jiep1963
        
        2015-11-19 11:44
        
        User since
        2008-08-20
        37 Artikel
        BenutzerIn
        
        RESOLVED
        
        Vielen herzlichen Dank an alle die sich Gedanken gemacht haben !!!
        Alles verstanden, ich kann meinen Mist jetzt fertig programmieren. ;-)
        
        Gruß Achim
        
        GwenDragon
        
        2015-11-18 18:08
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Nachdem Pfadlängen in vielen Betriebssysteme begrenzt sind, hat das auf den Hash keinen Einfluss.
        Pfade können ja nicht 1 Mio Zeichen lang sein ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        gelöscht 2015-11-18 18:12
      - Raubtier
        
        2015-11-18 18:06
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        2015-11-18T16:06:47 Jiep1963
        $MeinHash{ q/$PfadFileString/ } = $Md5SumString
        
        Das geht so natürlich nicht, weil q den String nicht inperpoliert, das heißt, dein Hash-Key ist das Dollar-Zeichen gefolgt von "PfadFileString", nicht der Wert, den die Variable $PfadFileString enthält.
        
        Die Lösung ist einfach: $MeinHash{$PfadFileString} = $Md5SumString; - keine Quotes nötig.
      - Muffi
        
        2015-11-18 20:30
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich glaub eher, dass dein Vorhaben so alltäglich ist, dass es wenig erwähnt wird.
        1 + 1 = 10
- +4 replies
- hlubenow
  
  2015-11-18 16:45
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Oder er denkt, die Probleme, die bash mit Leerzeichen in Dateinamen hat, gebe es in Perl auch.
  - Jiep1963
    
    2015-11-18 17:08
    
    User since
    2008-08-20
    37 Artikel
    BenutzerIn
    
    jep :-)
  - +2 replies
  - Linuxer
    
    2015-11-18 17:50
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Naja, fehlerhaftes oder fehlendes korrektes Quoting durch den Anwender oder Programmierer ist aber kein Problem der Bash.
    
    Oder wo hat die bash Probleme mit Leerzeichen in Dateinamen?
    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!
    - Raubtier
      
      2015-11-18 18:16
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      2015-11-18T16:50:02 Linuxer
      Naja, fehlerhaftes oder fehlendes korrektes Quoting durch den Anwender oder Programmierer ist aber kein Problem der Bash.
      
      Nein, aber das Quoting in shell-Scripten nervt, das kann man doch wohl sagen.
      
      Code: (dl )
      
      if [[ $a == "$b" ]] ; then echo "ok ohne quotes links"; fi
      
      aber
      
      Code: (dl )
      
      if [ $a = "$b" ] ; then echo "AUA, BITTE NICHT!!"; fi
      
      Das führt dazu, dass ich in Shell gefühlt alles quote, was nur geht.
      
      Edit: mein ursprünglicher Text war schon falsch, auch in [[ ]] braucht die rechte Seite Quotes, die linke aber nicht, da ja b="*" sein könnte. Also: Nimm in Shell immer Quotes.
      Last edited: 2015-11-18 18:30:15 +0100 (CET)
- Linuxer
  
  2015-11-19 15:21
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Hi,
  
  das ist sicherlich eine nette Programmier-Aufgabe.
  Aber ich möchte nur darauf hinweisen, dass es - soweit ich das mitgelesen habe - für diese Aufgabe auch schon was fertiges gibt: Open_Source_Tripwire
  Das dürfte auch im Software-Repository der verschiedenen Distributionen verfügbar sein.
  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!
- GwenDragon
  
  2015-11-19 16:37
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Das Linux-Programm-Paket AIDE eignet sich auch zum Überwachen von Dateiänderungen im System und ist für viele Distries fertig erhältlich.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-11-18 15:04.