Perl Filesystem Encoding erkennen

[pl]

@Rolf B

D.h. dein Script wird vermutlich unter Linux nicht laufen. Oder liefert readdir da auch ein CP1252 Encoding?

Dateinamen kennen keine Zeichenkodierung! Von daher liefert readdir(), weil es grundsätzlich bytesemantisch arbeitet, stets Oktetten. Wenn das nicht die Oktetten sind die erwartet wurden, ist beim Anlegen der Datei was schiefgegangen.

Und ja, natürlich kann man unter Windows utf-8-kodierte Dateinamen verwenden: Wenn beim Anlegen der Datei die richtigen Oktetten ins FS geschrieben werden (Auf WinXP):

use strict;
use warnings;
use Encode;
use IO::File;


my $dir = "d:/tmp/files";
my $fname = 'äöü@€.txt'; # Scriptdatei utf-8-kodiert
# von daher sind es die richtigen Oktetten!
my $fh = IO::File->new;

# Lege Datei an im Bytemode
$fh->open("$dir/$fname", O_CREAT) or die $!;
$fh->close;


chdir $dir or die $!;
my @files = <*.txt>;

# Ausgabe im Bytemode OK
print "@files\n"; 

# Zur Kontrolle die Cpodepoints
my $cname = $files[0];

# interne Kodierung einschalten
my $utf8 = decode_utf8($cname);

# Codepoints ausgeben
$, = " ";
print unpack "U*", $utf8; # 228 246 252 64 8364 46 116 120 116

# und das hier gibt eine warnung Wide character in print...
print $utf8; # wrongg!!!!

# Weil auf STDOUT keine kodierten Zeichenketten
# sondern Oktetten gehören!

Und wie Du siehst hat das alles mit der Codepage gar nichts zu tun.

MfG