初めて作ったPerl Script

入門書を片手に生れて初めて作ったPerl Script。

市販の入門書よりもせうぞーさんの
http://www.seuzo.jp/st/Works/MacPerl-lesson.pdfの方が役に立った。

PDFを作成する際に、OCFのダイナフォントやフォントワークス書体をCIDに変換してエンベットさせる。
（フォントワークス外字は抜けてしまいます。今後の課題です。）

書き出したPSファイルを以下のPerlで処理。

#!/usr/local/bin/perl -pi.bk
#元PSファイル名の後ろに.bkがつきます。
s/(D[CF]P.*?)-(.*?)-(83pv)/$1CID-$2-$3/g;
s/Plus(?=-.+-83pv)/CID/g;
s/CIDCID/CID/g;
#元DFPのCIDとOCFが混在の場合は、font名がCIDCIDになってしまうのでCIDにする。


別な書き方として
#!/usr/local/bin/perl
While(<>){
open(OUTPUT,">$ARGV.new")unless -e"$ARGV.new";
#作成されたPSファイル名の後ろに.newがつきます。

s/(D[CF]P.*?)-(.*?)-(83pv)/$1CID-$2-$3/g;
s/Plus(?=-.+-83pv)/CID/g;
s/CIDCID/CID/g;

print OUTPUT;
}
close OUTPUT;


作成されたPSファイルをCIDフォントのある環境でDistillarにかけるとFontが埋め込まれます。