Verzeichnisnamen hashen für Bilder - #177237 (Allgemeines zu Perl)

GwenDragon

2014-09-12 12:35

User since
2005-01-17
14533 Artikel
Admin1

Code (perl): (dl )

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