![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
伝票やチケットのナンバー入れに重宝します。
従来では、本文印刷後ナンバーを刷り込んでいましたが、ＰＯＤが発達した現在ではＰＯＤでの印刷が主流になりつつあります。
ＰＯＤでは最初にナンバーを発生させておいて、InDesignのデーター結合させます。
その後マスターページに印刷本文を配置し印刷データーを作成します。このように二段階となるわけです。
しかし、MakeNumber2を使えばナンバーと印刷本文を一度の処理で完結できます。
完結できるという事は、ナンバーの位置がずれたりして、再処理が簡単であり、高い精度が得られます
strict; utf8; Text::CSV_XS; Jcode; Encode qw/ from_to encode decode encode_utf8 decode_utf8 /; File::Basename; #CSV拡張子のチェックに使用 Imager::Barcode128; #バーコード作成用 Imager::QRCode; #QRコード作成用 Getopt::Long 'GetOptions';
#!/bin/sh
if [ $# -lt 1 ]
then
echo ----------------------------------------------------------------
echo Usage: MakeNumb2 -c xxxx.csv [-p zzzz.pdf省略可能]
echo xxxx.csvに指示された仕様にそって印刷枚数分ナンバーを発生します
echo zzzz.pdfの指示あれば下絵にします。無ければナンバーのみ
echo xxxx.pdfはcsvと同じディレクトリに出力されます
echo ----------------------------------------------------------------
echo ●使い方
echo ターミナルを起動して
echo MakeNumb2 -c xxx.csv -p zzzz.pdfとすると作成されて同ディレクトリに作られます
echo pdfとして作成されるのでそのまま印刷可能です
echo "xxxは ~/Developer/source/perl/MakeNumber/++MakeNumb-sample.numbersにあります。"
echo ----------------------------------------------------------------
open /Applications/Numbers.app ~/Developer/source/perl/MakeNumber/MakeNumb-Code.numbers
exit 1
fi
cd /Users/yuzo/Developer/source/perl/MakeNumber
echo "------ printnumb221 Num QR Bar code Type ..... shell"
perl /Users/yuzo/Developer/source/perl/MakeNumber/MakeNumb221.pl $1 $2 $3 $4
echo "------- end -------- shell"
echo
exit
