Suchen und Ersetzen in Mail - #185235 (Allgemeines zu Perl)

Raubtier

2016-08-07 20:47

User since
2012-05-04
1054 Artikel
BenutzerIn

user image

Bei Sonderzeichen ist die Regel: das wird so erst funktionieren wie geplant, wenn du Perl das Encoding der Eingabe sowie das Encoding des Scriptes selbst bekannt machst:

Code (perl): (dl )

use utf8; # ich nehme an, dein Script ist in UTF-8 gespeichert!
use Encode qw(encode decode);
my $decoded = decode("hier das charset der eingabe", $zwfile);
$decoded =~ s/—/-/g;
my $encoded = encode("ziel-charset", $decoded);

Wenn dein Script nicht in utf8 gespeichert ist, dann nimm das "use utf8" raus und schreibe stattdessen:

Code (perl): (dl )

my $longDash = decode("kodierung des scriptes", '—');

und benutze dann $longDash in der RE.

Ansonsten poste ich diesen Link hier gefühlt schon zum 1000. Mal:
https://perlgeek.de/de/artikel/charsets-unicode