10 lines
348 B
Perl
Executable file
10 lines
348 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";
|