diff --git a/traydict/unicodereplace.pl b/traydict/unicodereplace.pl index 9ffcbd602..6c18a6f93 100644 --- a/traydict/unicodereplace.pl +++ b/traydict/unicodereplace.pl @@ -5,6 +5,8 @@ #### # Usage: unicodereplace.pl infile outfile ############################# +# oneliner version: +# perl -C7 -ne'print map {$c=ord; ($c < 127 or $c == 0xFEFF or $c == 0xFFFE) ? $_ : sprintf "\\u%04x", $c} split //;' infile > outfile use warnings; use strict;