2009-08-24T13:37:09 gstueb

Hallo,

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use warnings;
use lib 'S:\FCMS\Barcode'; # Hier liegt das heruntergeladene Modul PerlIO.pm
# use Perlio, 'UTF16';
# use Perlio::'UTF16';
use PerlIO;
[code][/quote]

Du brauchst gar kein 'use PerlIO', du kannst IO-Layer auch ohne benutzen (zumindest bei halbwegs modernen perls).

[quote][code]
sub konvertfile {

	my $in = $_[0];
	my $out = $_[1];

	open INFILE, "<:UTF16", "$in", or die "$in: $!";

Wie anscheinend weisst gibt es nicht ein UTF-16, sondern zwei - also gibt noch die Endianess an, '<:UTF-16LE'.

Quote

Ist die Herangehensweise zur Umwandlung von UTF16 nach UTF8 so richtig?

Ja. eine weitere Option waere das Encode-modul, seit 5.7.3 auch in core dabei.

Quote

Wir haben hier Perl v5.8.3 im Einsatz.

Sollte es moeglich sein empfehle ich ein Update auf was neueres, gerade bei Unicode-Zeugs hat sich einiges verbessert.