add oneliner version of unicodereplace.pl to the script itself so I don't forget about it

Originally committed to SVN as r2524.
This commit is contained in:
Karl Blomster 2008-12-26 23:36:39 +00:00
parent b94357e8db
commit db2c5da7a0

View file

@ -5,6 +5,8 @@
#### ####
# Usage: unicodereplace.pl infile outfile # 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 warnings;
use strict; use strict;