mirror of
https://github.com/smarty-php/smarty.git
synced 2025-11-04 06:11:37 +01: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;
|
|
}
|