画像ファイルの作成方法

質問

私は、外部の画像ファイルを読み込まずにperlファイルで表示、ファイル作成をすればよいか困っております。

プログラムは、
読み込み⇒画像作成⇒終了
というような感じです。

Perlの勉強段階などでモジュールなどを使わないようにしたいと思っています。

今までで実験してみた方法は、gifファイルを拡張子.txtに変えてそのファイルをコピーしプログラムに貼り付けたものです。

画像作成
(flockは除いています。)
#!/usr/bin/perl

open(OUT,"> test.gif");
binmode(OUT);
print OUT <<'EOM';
コピーしたもの
EOM
exit;

以上の文でファイルは作成されているものの、画像を表示すると×状態です。

どのように修正すればよいかご指摘お願いします。

回答No.1

yuuki0229 · ベストアンサー

binmodeするところまでは良いのですが、テキストエディタでバイナリデータを開くor保存する際に表示できない文字などでかなりの情報が失われます。
gifファイルをバイナリエディタで開いて以下のような表記で写していけば良いでしょう。
print OUT "\x47\x49\x46\x38\x39\x61 以下略";
＃この先頭部分は"GIF89a"と直接記述しても大丈夫です。

バイナリエディタからのコピペで済ませたい場合は
$hexstring = "47 49 46 38 39 61 ...";
$hexstring =~ s/\s//g;
print OUT pack("H*", $hexstring);
のようにpackを利用するなどです。

＃質問文中のヒアドキュメントの場合、末尾に余分な改行が含まれてしまうことも問題の一つになっていると思います。

＞Perlの勉強段階などでモジュールなどを使わないようにしたいと思っています。
画像データをフルスクラッチで出力することはPerlのプログラミングとは別分野の知識が多く必要になります。
画像フォーマット、さらにそこで使用されているデータ圧縮の技術、画像を加工する場合は画像処理に関しての知識も必要になるでしょう。
Perlの学習のために画像の操作を題材とするのはあまりお勧めしません。

参考URL：

http://ja.wikipedia.org/wiki/テキストファイル

お礼

ありがとうございます。

正しく作成することができました。
直接のコピーがだめだったんですね。