Perl Filesystem Encoding erkennen

[pl]

hallo

ich weiß immer noch nicht was Du da machst.

wobei die Bytes der zweiten Datei sind

D794D7A6EFA29540E282AC2E747874

Wenn das die einzelnen Bytewertigkeiten 0xD7, 0x94 usw sind, heißt das, daß die Datei mit diesem Namen angelegt werden konnte.

Zur Übung:

my $hexi = 'D794D7A6EFA29540E282AC2E747874';
my $octs = [$hexi =~ /[\w]{2}/g];
my @deci = map{ hex $_ } @$octs;

# Dateiname wiederherstellen
my $rawname = pack "C*", @deci;;
print $rawname;

Und lass Dir mal die einzelnen Variablen ausgeben.

MfG

PS:

# looking for utf8
my $try_utf8 = decode_utf8 $rawname;
$, = "\n";
# Codepoints ausgeben
print unpack("U*", $try_utf8), $rawname;

Ausgabe
1492
1510
63637
64
8364
46
116
120
116

In UTF8-Kodierung sind es genau 9 Zeichen.