Opened by sesth at 2007-02-01 17:27
User since
2005-02-01
181 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-02-01
181 Artikel
BenutzerIn
Ich möchte eine Datei im UTF-8-Encoding schreiben und (um Verwechslungen mit anderen Zeichensätzen auszuschließen) eine Byte-Order-Mark (BOM) am Dateianfang setzen. Mit
wird zwar UTF-8 geschrieben , leider ohne BOM. Kann man Perl dazu bewegen, eine BOM automatisch zu erzeugen oder muss ich das selbst ausgeben?
Code: (dl
)
1
2
3
4
5
6
7
use open IO => ':utf8';
use strict;
my $text = 'Umlaut Ü';
open(OUT, '>', 'test.txt') || die "test.txt:$!";
print OUT "$text\n";
close(OUT);
wird zwar UTF-8 geschrieben , leider ohne BOM. Kann man Perl dazu bewegen, eine BOM automatisch zu erzeugen oder muss ich das selbst ausgeben?
Gruß
Thomas
Thomas