Wie kann ich die Kodierung eines Strings in Perl erraten?
Ich habe eine Unicode-Zeichenfolge und weiß nicht, wie sie codiert ist. Wenn diese Zeichenfolge von einem Perl-Programm gelesen wird, gibt es eine Standardcodierung, die Perl verwendet? Wenn ja, wie kann ich herausfinden, was es ist?
Ich versuche, Nicht-ASCII-Zeichen aus der Eingabe zu entfernen. Ich habe dies in einem Forum gefunden, das es tun wird:
my $line = encode('ascii', normalize('KD', $myutf), sub {$_[0] = ''});
Wie funktioniert das oben Genannte, wenn keine Eingabecodierung angegeben ist? Sollte es wie folgt angegeben werden?
my $line = encode('ascii', normalize('KD', decode($myutf, 'input-encoding'), sub {$_[0] = ''});