mirror of
https://github.com/smarty-php/smarty.git
synced 2025-10-04 08:10:55 +02:00
9 lines
126 B
Perl
Executable File
9 lines
126 B
Perl
Executable File
#!/bin/perl -- # -*- Perl -*-
|
|
|
|
# Charset hacking...
|
|
|
|
while (<>) {
|
|
s/\&\#(\d+);/sprintf("\\U-%04X;", $1)/egs;
|
|
print;
|
|
}
|