Perl 5用画像変換スクリプト・しらぎくイメージチェンジャについて、簡単に説明させていただきます。
しらぎくイメージチェンジャは、Perl 5で利用出来る画像変換スクリプトです。
予め指定しておいたウェブ上のGIF画像または任意のローカルのGIF画像を、PNG画像またはビットマップ画像に変換するスクリプトです。
主に以下のような使い方が出来ます。
メインとなるのは以下のものです。
上記のメインスクリプトを実行するのに必要な下請スクリプトは以下の通りです。
PNG画像の生成に欠かせない、デフレート圧縮スクリプトです。
PNG画像を生成するスクリプトです。
実行には以下のスクリプトも必要です。
続いて、同スクリプトに対して設定を行います。
まず、同スクリプトの始めにある「$url=(
」と「);
」の間に処理対象となるGIF画像へのURLを記述します。
'
」と「',
」で囲んで下さい。URLは複数指定出来ます。複数指定した場合、番号で変換したい画像を指定出来るようになります。
続いて、スクリプトの始めにある「$local_path='
…';
」に、対象となる最上位のローカル画像収納ディレクトリへの相対パスを記述して下さい。
最後に、ローカル画像の拡張子を「$local_ext='…';」にて指定します。
この他、端末による自動判別が必要な場合は「$auto_select=0;
」を「$auto_select=1;
」に変更して下さい。
$auto_select=1;
」に設定した場合、パラメータで画像形式を指定することが出来なくなります。設置したスクリプトのパーミッションを適切に設定します。
実際の呼び出し方は以下の通りになります(HTML 3.2/4.01の場合)。
<img alt="
代替文字列" width="
横幅" height="
高さ" src="
http://CGIのURL?m=
形式;n=
番号">
番号を指定しなかった場合(「
;n=
」以降を省略した場合)、指定した番号が正しくない場合はいずれも「0」(「@url=(
」以降一番初めに記載されたURL)が選択されます。<img alt="
代替文字列" width="
横幅" height="
高さ" src="
http://CGIのURL?m=
形式;a=
ローカル画像へのパス">
ローカル画像へのパスは予め指定しているパス基準のもので、指定されたディレクトリより上位を指定することは出来ません。
番号と
ローカル画像へのパスを双方指定した場合は後者が優先されます。
形式
には「gif
」「png
」及び「bmp
」を指定します。指定しなかった場合や指定が正しくない場合は「gif
」と見做します。
$auto_select=1;
」に変更した場合)はこのパラメータは無効になります。;d=d.png
」(ダミーのPNG拡張子)を付けて下さい。サーヴァによってはSocketモジュールが外されている事により外部リソースの取得が出来ない場合もございます。