Opened by Dominik at 2011-02-06 15:15
Hallo zusammen,
ich möchte eine Unicode-Datei einlesen. Aber irgendetweas scheint mit dem Zeichensatz nicht zu stimmen.
Hier der Code:
Die Unicode-Datei hat folgenden Inhalt:
Full Tilt Poker Game #27714898282: $2 + $0.15 Sit&Go (Sup Turbo) (215431399), Table 1 - 15/30 - No Limit Hold'em - 13:25:11 ET - 2011/01/29
Seat 1: pamixfirst (300)
Seat 2: lucian-bucur (300)
Seat 3: Drexo21 (300)
Seat 4: BaccoFromHell (300)
Seat 5: alexutzu09 (300)
Seat 6: blue6label (300)
Seat 7: koshca (300)
Seat 8: parkbank (300)
Seat 9: nklein (300)
Wenn ich nun aber die Datei einlese und den Inhalt ausgebe, erscheint die Ausgabe scheinbar in einem falschen Format. Wie folgt zu sehen ist:
Screenshot
Übrigens ist die Ausgabe richtig wenn ich die Datei als ANSI-Datei abspeicher.
Wie kann ich Perl dazu bringen den Zeichensatz beim Lesen zu konvertieren?
MfG, Dominik
Last edited: 2011-02-06 15:25:35 +0100 (CET)
ich möchte eine Unicode-Datei einlesen. Aber irgendetweas scheint mit dem Zeichensatz nicht zu stimmen.
Hier der Code:
Code: (dl
)
1
2
3
4
5
6
7
8
use warnings;
use strict;
my $filename = "Testfile.txt";
open FILE, $filename or die "Dateifehler: $!";
print <FILE>;
close FILE;
<>;
Die Unicode-Datei hat folgenden Inhalt:
Full Tilt Poker Game #27714898282: $2 + $0.15 Sit&Go (Sup Turbo) (215431399), Table 1 - 15/30 - No Limit Hold'em - 13:25:11 ET - 2011/01/29
Seat 1: pamixfirst (300)
Seat 2: lucian-bucur (300)
Seat 3: Drexo21 (300)
Seat 4: BaccoFromHell (300)
Seat 5: alexutzu09 (300)
Seat 6: blue6label (300)
Seat 7: koshca (300)
Seat 8: parkbank (300)
Seat 9: nklein (300)
Wenn ich nun aber die Datei einlese und den Inhalt ausgebe, erscheint die Ausgabe scheinbar in einem falschen Format. Wie folgt zu sehen ist:
Screenshot
Übrigens ist die Ausgabe richtig wenn ich die Datei als ANSI-Datei abspeicher.
Wie kann ich Perl dazu bringen den Zeichensatz beim Lesen zu konvertieren?
MfG, Dominik
Last edited: 2011-02-06 15:25:35 +0100 (CET)