File: cs-hack.pl

package info (click to toggle)
php-doc 20081024-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 57,752 kB
  • ctags: 3,858
  • sloc: xml: 686,554; php: 19,446; perl: 610; cpp: 500; makefile: 336; sh: 114; awk: 28
file content (8 lines) | stat: -rw-r--r-- 126 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
 
#!/bin/perl -- # -*- Perl -*-

# Charset hacking...

while (<>) {
    s/\&\#(\d+);/sprintf("\\U-%04X;", $1)/egs;
    print;
}