mieki256's diary

SDカードに保存するためのデータファイルを作成するPerlスクリプトを作成中。必要なファイルを作業用フォルダに連番リネームでコピーして、7z.exeでzipに圧縮して、iアプリの通信可能なサイズで分割保存。

Perlのunlinkの使い方がよくわからず。削除に失敗したかどうかを検知するにはどういう書き方をすればいいのやら。unlink $filename or die; では書き方がおかしいと文句を言われるし。

use Getopt::Long;
use Pod::Usage;
use File::Spec;
use File::Copy;
use File::Basename;

あたりを使ってしまっているけど大丈夫だろうか。自分の環境だけならともかく、他の環境に持って行った時が不安。でも、ActivePerlでやってるので、ppm でモジュールをインストールすれば済むか。今時の ppm は GUI でも使えるし。