File: cs-hack.pl

package info (click to toggle)
docbook-dsssl 1.79-12
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,292 kB
  • sloc: perl: 496; xml: 126; javascript: 61; makefile: 15; sh: 10
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;
}