DynaFont TrueTypeからPS-Nameを抜き出すPerlスクリプト

Tweet

DynaFont TypeMuseum TrueType 100（ディスコン）から、PostScript フォント名（PS-Name）を抜き出し改行区切りで標準出力に書き出します。Windows 用 TrueType であれば、１書体当たり３つの PS-Name が書き出されます。

#!/usr/bin/perl
 
# Filename: dfttpsname.pl
#
# DynaFont Type Museum TrueType100 から
# フォント名（PS-Name）を抜き出します。
# DynaFont Type Museum TrueType100 Mac　
# の場合、リソースフォークをデータフォー
# クに出してから実行する。
# Win32 ActivePerl 5.8.8 で動作確認済み。
 
use strict;
use warnings;
use File::Find;
 
my $font_path = 'D:/9598NT';
my @DIRLIST;
push @DIRLIST,$font_path;
find (\&process_file, @DIRLIST);
exit 1;
 
sub process_file {
  my $path = $File::Find::name;
#  print "$path\n";
  if (!(-d) && !($path =~m|Icon|)) {
    open(FH, $path) or die;
    read(FH,my $data, -s FH);
    close FH;
 
    while ($data =~m|(D[CF][\w\-]+?-RKSJ-[HV])|sgo){
      print "$1\n";
    }
  }
}

～～～

用途は、PDF/X-1a 運用の天敵、ダイナフォントTrueTypeを発見するための材料として（PitStop にセットする）使います。でも、PitStop のプリフライトプロファイルって 300個もフォント名セットできるのかな。

2006.06.29 03:06 投稿　大野 義貴 [Perl] | 固定リンク |