Wie Speichere ich eine Datei als UTF-8 aus Perl?

Ich versuche zu erstellen/speichern, HTML-Dateien, das in Perl in UTF-8, aber nichts, was ich bisher getan habe funktioniert. Ein Vorherige Antwort hier SO sagte binmode, also versuchte ich das. Hier ist mein code:

open (OUT, ">$sectionfilename");
binmode(OUT, ":utf8");
print OUT $section;
close OUT;

Wenn ich öffnen Sie diese Dateien in einem text-editor wie editor, Sie sind noch in ANSI-Codierung. Was mache ich falsch?

  • Sie möchten eine BOM (byte order mark)?
  • Meinst du ausschließlich Notepad? Weil Notepad nicht erkennen UTF-8 ohne BOM.
  • Nein, nicht ausschließlich Notepad, TextPad auch. Die Datei ist einfach nicht die Kodierung UTF-8.
InformationsquelleAutor Joshua | 2010-02-26
  1. 14

    Einem text-editor ist ein schlechtes Werkzeug, um zu prüfen low-level-Sachen wie Codierungen. Verwenden Sie einen hexviewer/hexdumper statt. Die moderne Art zu schreiben, dein Beispiel:

    use autodie qw(:all);
open my $out, '>:encoding(UTF-8)', $sectionfilename;
print {$out} $section;
close $out;

    autodie ermöglicht die automatische Fehlerprüfung.

    InformationsquelleAutor daxim
  2. 3

    Scheint für mich arbeiten:

    C:\Documents and Settings>cat a.pl
$sectionfilename = "a.txt";
$section = "Hello \x{263A}!\n";

open (OUT, ">$sectionfilename");
binmode(OUT, ":utf8");
print OUT $section;
close OUT;    

C:\Documents and Settings>perl a.pl

C:\Documents and Settings>file a.txt
a.txt: UTF-8 Unicode text, with CRLF line terminators

    Aber wenn ich den text geschrieben werden:

    $section = "Hello";

    and run:

    C:\Documents and Settings>perl a.pl

C:\Documents and Settings>file a.txt
a.txt: ASCII text, with no line terminators
    InformationsquelleAutor codaddict
Schreibe einen Kommentar