Dateien in utf8 speichern - #131848 (Allgemeines zu Perl)

betterworld

2010-02-05 12:04

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

Code: (dl )

1
2
3

open(DATEIHANDLE_OUTPUT, ">:encoding(UTF-8)". $DATEINAME_OUTPUT) || die "\nAbbruch!\nPerl meldet: [$!]\n\n";;
print DATEIHANDLE_OUTPUT @ALLE_ZEILEN;
close(DATEIHANDLE_OUTPUT) or die $!;

Beachte auch das "die" in der letzten Zeile, das ist wichtig, weil es meldet, wenn die Datei nicht geschrieben werden konnte.

Zu dem encoding siehe auch perldoc -f open.

Zu den Dateihandles siehe fuer's naechste Mal
Wiki:

WasIsteinLexikalischerFileHandle

Und das mit den ganzen Großbuchstaben sieht unschoen aus, aber das ist nur meine Meinung ;-)
Last edited: 2010-02-05 12:06:20 +0100 (CET)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class