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