mirror of
https://github.com/wesnoth/wesnoth
synced 2025-04-25 10:06:17 +00:00
12 lines
349 B
Perl
Executable File
12 lines
349 B
Perl
Executable File
#!/usr/bin/perl -n
|
|
# codeextract
|
|
# usage: codeextract status.txt | codelist
|
|
# extracts list of font codes from DejaVu font status.txt file, as a
|
|
# list of decimal integers suitable as input to codelist
|
|
|
|
next if $. < 7; # skip first 6 lines
|
|
s/ .*//; # get rid of stuff other than codepoint
|
|
s/^U\+//; # set up number
|
|
print hex $_, "\n";
|
|
|