File: cs-hack.pl

package info (click to toggle)
docbook-dsssl 1.79-6
  • links: PTS
  • area: main
  • in suites: lenny, squeeze
  • size: 3,256 kB
  • ctags: 27
  • sloc: perl: 496; xml: 126; makefile: 34
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;
}