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

Linuxer

2014-11-24 14:14

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Packe die Ersetzung in eine Subroutine und rufe diese im Ersetzungsteil auf und übergebe ihr dabei den Ersetzungsstring.

ungetestet:

Code (perl): (dl )

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!