Perl Filesystem Encoding erkennen
bearbeitet von 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:
~~~perl
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:
~~~perl
# 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
~~~
.
Perl Filesystem Encoding erkennen
bearbeitet von 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:
~~~perl
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