Opened by kimmy at 2011-01-14 14:07
User since
2010-09-10
87 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-09-10
87 Artikel
BenutzerIn
Hallo,
ich möchte gern die Ausgabe Datei in UTF-8 mit BOM kodieren.
Deswegen habe ich wie folgt gemacht:
Das Skript läuft problemlos.
Aber gibt es vielleicht andere Lösung?
Eigentlich hätte ich gern lieber "open OUT, ">ausgabe.txt"" statt "open OUT, ">>ausgabe.txt"".
Danke im Voraus.
Last edited: 2011-01-14 14:19:33 +0100 (CET)
ich möchte gern die Ausgabe Datei in UTF-8 mit BOM kodieren.
Deswegen habe ich wie folgt gemacht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use utf8;
use open ':encoding(UTF-8)';
use open ':std';
open OUT, ">ausgabe.txt" or die;
my $BOM = chr(0xFEFF);
print OUT "$BOM";
while(<>){
chomp;
print OUT "$_\n";
}
Das Skript läuft problemlos.
Aber gibt es vielleicht andere Lösung?
Danke im Voraus.
Last edited: 2011-01-14 14:19:33 +0100 (CET)