外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
perlで文字寸法を取得する(hcw,hch,hcd,hcc)
:perlで文字寸法を取得する(hcw,hch,hcd,hcc)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof
REM #jww
REM #e
#!perl -an -i.bak
BEGIN {
$cn = "";
}
if (/^hcw/) { foreach $i (0..10) { $hcw[sprintf('%d', $i)] = $F[$i]; }}
if (/^hch/) { foreach $i (0..10) { $hch[sprintf('%d', $i)] = $F[$i]; }}
if (/^hcd/) { foreach $i (0..10) { $hcd[sprintf('%d', $i)] = $F[$i]; }}
if (/^hcc/) { foreach $i (0..10) { $hcc[sprintf('%d', $i)] = $F[$i]; }}
if (/^cn[0-9]/) {
$pcn = substr($_, 2);
chomp($pcn);
if ($cn eq "") {
$cn = $pcn;
if (2 < length($cn)) {
($cn, $hcw[0], $hch[0], $hcd[0], $hcc[0]) = split("[ ]+",$pcn);
}
print "h#cn$cn $hcw[$cn] $hch[$cn] $hcd[$cn] $hcc[$cn]\n";
}
}
__END__