Verzeichnisnamen hashen für Bilder (Allgemeines zu Perl)

[thread]19277[/thread]

Verzeichnisnamen hashen für Bilder

Leser: 13

Articles: hide open all | hide show old branches

+20 replies
jan99

2014-09-12 11:29

User since
2008-09-18
439 Artikel
BenutzerIn

Moin !

ich muss Dateien für Wiki umbauen und es kommt dann zu Namenskonflikten mit den Bildnamen. Da zu jedem Doc ein Verzeihnis vorhanden ist habe ich mir überlegt aus dem Verzeichnisnamen einen Hash zu generieren und dem Bild voranzustellen.

Es kommte dann in jeder Datei ein oder mehrfach folgendes vor:

[[Image:Vermessungspunkte-Dateien/image028.jpg]]

daraus sollte dann werden

[[Image:753ec701964f08b7f95237d548d87c9a0074a5d5_image028.jpg]]

Kann mir einer sagen wie man das machen würde oder gerne auch eine andere Idee...

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +19 replies
- GwenDragon
  
  2014-09-12 12:02
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Mit Digest::SHA::PurePerl oder Digest::SHA -- je nach dem was auf dein System kann.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  use Digest::SHA::PurePerl qw(sha1_hex); my $directory = '/Foo/bar/'; my $hash = sha1_hex($directory);
  
  Wenn's nicht eindeutig genug ist, nimm sha256_hex ode sha512_hex.
  Last edited: 2014-09-12 12:04:48 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +18 replies
  - jan99
    
    2014-09-12 12:13
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    danke erst einmal - leider habe ich mich etwas ungenau ausgedrückt. Meine Frage zielte mehr darauf ab wie ich die Textstrings finde und austausche?
    
    RegEx ist nämlich mein "großer" Freund.
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +6 replies
    - Raubtier
      
      2014-09-12 12:26
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Vielleicht hilft dir File::Basename?
      
      Ansonsten: warum überhaupt hashen? Man könnte ja auch einfach / durch __ ersetzen (ok, dann kann es Konflikte geben, aber wird wohl vermutlich nicht der Fall sein - wenn doch, müsstest du halt einen anderen Separator nehmen). Das hätte den Vorteil, dass man die Zuordnung noch erkennt statt eine wilde Zahlenkombination zu haben.
      - +5 replies
      - jan99
        
        2014-09-12 12:35
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin!
        
        Quote
        ok, dann kann es Konflikte geben, aber wird wohl vermutlich nicht der Fall sein - wenn doch, müsstest du halt einen anderen Separator nehmen).
        
        Das wird es auf jeden Fall. Es wurden die Doc mit Word erstellt und als HTML gespeichert. Dann werden die eingefügten Bilder immer mit image1,2,3 fortlaufend betitelt. Wenn die gleichnamigen Bilder aus 100+ Dokumenten dann in ein Verzeichnis, sprich DB, sollen dann wird es nach kurzer Zeit schon "kantsch" geben.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +4 replies
        
        Raubtier
        
        2014-09-12 12:44
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        In dem Fall würde es dann aber genau keine Konflikte geben. Konflikte wären nur möglich, wenn der Bildname oder den Trenner enthält.
        
        D.h. ich hätte aus
        Vermessungspunkte-Dateien/image028.jpg
        das hier gemacht:
        Vermessungspunkte-Dateien__image028.jpg
        
        +3 replies
        
        Muffi
        
        2014-09-12 14:16
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Warum ein string weniger oft kollidiert wenn man ihn hasht hab ich auch nicht ganz verstanden.
        Ich würd auch die Lösung nehmen.
        1 + 1 = 10
        
        +2 replies
        
        GwenDragon
        
        2014-09-12 14:22
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Wenn wirklich eindeutige ID verwendet werden sollen, ist ein Hash natürlich nicht anwendbar.
        
        UUID ist da wohl eher sinnvoll: UUID::Tiny oder Data::UUID
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        Muffi
        
        2014-09-12 14:25
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        So wies ausschaut ist ja momentan Verzeichnisname+Dateiname schon eindeutig.
        Er will nur die Verzeichnisse weghaben. Und da würd ich auch den Verzeichnisnamen einfach vorn an den Dateinamen anhängen.
        1 + 1 = 10
    - +11 replies
    - GwenDragon
      
      2014-09-12 12:35
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      use Digest::SHA qw(sha1_hex); local $/ = undef; my $wiki_code = <DATA>; $wiki_code =~ s/(\[\[Image:)(.+)\/(.+)(\]\])/"$1".sha1_hex($2)."_$3$4"/ge; print $wiki_code; __DATA__ [[Image:Vermessungspunkte-Dateien/image021.jpg]] [[Image:Vermessungspunkte-Dateien/image028.jpg]] Marker: [[Image:Vermessungspunkte-Marker/image011.jpg]]
      
      ergibt:
      [[Image:753ec701964f08b7f95237d548d87c9a0074a5d5_image021.jpg]] [[Image:753ec701964f08b7f95237d548d87c9a0074a5d5_image028.jpg]] Marker: [[Image:763439e8641fe76c5b5c364ce2dc922060032661_image011.jpg]]
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +10 replies
      - jan99
        
        2014-11-21 08:47
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin !
        
        ich möchte noch einmal auf dieses Posting zurück kommen.
        
        Ausdruck
        
        Code (perl): (dl )
        
        $content_img =~ s/(\[\[Image:)(.+)\/(.+)(\]\])/"$1".$2."_$3$4"/ge;
        
        ist sehr hilfreich und aus meiner Sicht komplex und deshalb muss ich nochmal was fragen.
        
        Derzeit sieht das Ergebnis so aus:
        
        Code (perl): (dl )
        
        [[Image:Anwendung_und_Kopilieren-Dateien_image002.jpg]]
        
        Ich würde noch gerne eine Bildgröße mit anhängen mit dem Wert |300px. Das Ergebnis wäre dann
        
        Code (perl): (dl )
        
        [[Image:Anwendung_und_Kopilieren-Dateien_image002.jpg|300px]]
        
        Kann mir einer weiterhelfen - vielleicht auch mit einer Variante die 300 als Variable zu übergeben.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +9 replies
        
        Linuxer
        
        2014-11-21 10:51
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Naja,
        
        irgendwo hast Du hoffentlich die Bildgröße ausgelesen; wo ist nun das Problem, diese Größe in der Ersetzung gleich einzubauen?
        
        ungetestet:
        
        Code (perl): (dl )
        
        1 2 3
        
        my $img_size = 300; # determine image size $content_img =~ s/(\[\[Image:)(.+)\/(.+)(\]\])/"$1".$2."_$3$4|$img_size"/ge;
        
        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
        
        jan99
        
        2014-11-24 12:49
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin!
        
        erst einmal danke - werde ich einbauen. Aber bevor ich dieses machen kann habe ich bei meiner Zielanwendung ein neues Problem gefunden. Es werden keine Sonderzeichen zugelassen.
        
        Kann mir einer noch verraten wie
        
        Code (perl): (dl )
        
        $content_img =~ s/(\[\[Image:)(.+)\/(.+)(\]\])/"$1".$2."_$3$4"/ge;
        
        erweitert werden muss damit aus Ü->Ue etc. wird? Mir reichen die deutschen Umlaute und ß->sz aus.
        
        Gruß Jan :-)
        Last edited: 2014-11-24 12:50:51 +0100 (CET)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        Linuxer
        
        2014-11-24 13:22
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Ich würde es nicht im gleichen Regex machen.
        Sondern einen zweiten davor oder danach, der eben genau diese Ersetzungen machen.
        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
        
        GwenDragon
        
        2014-11-24 13:28
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        {
        use utf8;
        $content_img =~ s/Ü/Ue/g;
        $content_img =~ s/Ä/Ae/g;
        $content_img =~ s/Ö/Oe/g;
        $content_img =~ s/ẞ/SZ/g; # U+1E9E
        $content_img =~ s/ß/sz/g;
        $content_img =~ s/ü/ue/g;
        $content_img =~ s/ä/ae/g;
        $content_img =~ s/ö/oe/g;
        }
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +5 replies
        
        jan99
        
        2014-11-24 13:32
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Hi !
        
        erst einmal danke - aber dann wird die gesamte Datei konvertiert. Es soll aber nur innerhalb des
        
        Code (perl): (dl )
        
        [[Image:Vermessungspunkte-Dateien/image028.jpg]]
        
        Ausdrucks von Wikimedia konvertiert werden !
        
        Sorry, wenn ich mich etwas schlecht ausgedrückt habe.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +4 replies
        
        Linuxer
        
        2014-11-24 14:14
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Packe die Ersetzung in eine Subroutine und rufe diese im Ersetzungsteil auf und übergebe ihr dabei den Ersetzungsstring.
        
        ungetestet:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        sub convert_special_characters($) { my $str = shift; $str =~ s/Ü/Ue/g; $str =~ s/Ä/Ae/g; $str =~ s/Ö/Oe/g; $str =~ s/\x{1E9E}/SZ/g; # U+1E9E $str =~ s/ß/sz/g; $str =~ s/ü/ue/g; $str =~ s/ä/ae/g; $str =~ s/ö/oe/g; return $str; } $content_img =~ s/(\[\[Image:)(.+)\/(.+)(\]\])/convert_special_characters($1.$2."_".$3.$4)/ge;
        
        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!
        
        +3 replies
        
        jan99
        
        2014-11-25 08:46
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin !
        
        kurze Rückfrage - was bedeutet das $ in den Klammern beim Funktionsaufruf?
        
        Der Übergabeparameter ist doch darunter mit
        
        Code (perl): (dl )
        
        my $str = shift;
        
        ausgelesen?!?!?!
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        Muffi
        
        2014-11-25 08:56
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Das heißt, dass die sub mit _einem_ Parameter aufgerufen werden ~~soll~~ muss.
        Ist optional, gibt aber in Fällen wosmehr nutzt als nervt eine Zusatzsicherheit. (allerdings hab ich das Feature schon länger nicht mehr grossflächig benutzt, vielleicht ist mittlerweile nicht mehr alles zu allem inkompatibel)
        Last edited: 2014-11-25 09:03:08 +0100 (CET)
        1 + 1 = 10
        
        Linuxer
        
        2014-11-25 10:26
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        sub function {} ist kein Funktionsaufruf, das ist eine Funktionsdeklaration.
        
        Die Angabe von ($) (o.ä.) bei der Deklaration nennt sich "Prototyping" und kann (und sollte in der Regel) auch weggelassen werden.
        
        Ich habe es hier eingesetzt, weil ich erzwingen will, dass nur ein Skalar übergeben wird.
        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!

View all threads created 2014-09-12 11:29.