Fix (again!) handling of non-UTF8 characters
This commit is contained in:
parent
eba9bfffd6
commit
459d8c06ce
@ -6,10 +6,10 @@ ascii() {
|
||||
use utf8;
|
||||
use Encode;
|
||||
use Text::Unidecode;
|
||||
use open qw(:std :utf8);
|
||||
binmode STDIN, ":encoding(UTF-8)";
|
||||
$| = 1;
|
||||
while (<>) {
|
||||
print(unidecode(encode("utf-8", $_)));
|
||||
print(unidecode($_));
|
||||
}'
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user