#!/usr/bin/perl

# find used unicode 
use strict;
use utf8;
use open qw(:std :utf8); # input/output default encoding will be UTF-8, it looks like default

my %used;

while(<>) {
    for my $ch ( /(.)/g ) {
        $used{ord($ch)}++;
    }
}

for my $bdf (<*.bdf>) {
   open(my $f,"<",$bdf);
   my %has;
   while(<$f>) {
       if (/^ENCODING\s+(\d+)/) {    
          my $encoding=$1;
          $has{$encoding} = 1;
       }
   }
   my %no;
   for my $ch ( keys %used ) {
      $no{$ch} ++ if (! defined $has{$ch}) ;
   }
   for my $ch ( sort {$a<=>$b} keys %no ) {
       print "$ch is not in $bdf\n";
   }
}