mia/Aegisub
1
0
Fork 1
Code Issues Pull requests Projects Releases Wiki Activity

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

Browse source 
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
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
traydict/unicodereplace.pl
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;