Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 26
+4 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use warnings;
use lib 'S:\FCMS\Barcode'; # Hier liegt das heruntergeladene Modul PerlIO.pm
# use Perlio, 'UTF16';
# use Perlio::'UTF16';
use PerlIO;
sub konvertfile {
my $in = $_[0];
my $out = $_[1];
open INFILE, "<:UTF16", "$in", or die "$in: $!";
open OUTFILE, ">:UTF8", "$out";
while (<INFILE>)
{
$zeile = $_;
print OUTFILE $zeile, "\n"
}
close INFILE;
close OUTFILE;
}
![[Homepage]](/battie/theme/default/homepage.gif)
2009-08-24T13:37:09 gstuebHallo,
Code: (dl )1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16use 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: $!";
QuoteIst die Herangehensweise zur Umwandlung von UTF16 nach UTF8 so richtig?
QuoteWir haben hier Perl v5.8.3 im Einsatz.
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
