notes/font-search/fontsearch

   1 #!/usr/bin/perl -000
   2
   3 while (<>) {
   4     next unless m/font type:\s+Character Cell/;
   5     next unless m/QUAD_WIDTH\s+10\b/;
   6     next unless m/PIXEL_SIZE\s+20\b/;
   7     print;
   8 }
   9