File: cs-hack.pl

package info (click to toggle)
docbook-dsssl 1.76-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 3,964 kB
  • ctags: 32
  • sloc: perl: 485; makefile: 81; sh: 31
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;
}