電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

画像のバイナリデータを読み込み出力

PerlモジュールのImage::Magickを使用して、Imager::QRCodeモジュールで生成したQRコードのバイナリデータを読み込んで出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Image::Magick;
use Imager::QRCode;
 
my $qr = Imager::QRCode -> new(
	size => 5,
	margin => 1,
	version => 0,
	level => "M",
	mode => "8-bit",
	lightcolor => Imager::Color -> new (255,255,255),
	darkcolor => Imager::Color -> new (0,0,0)
);
$qr = $qr -> plot("http://pointgets.net");
$qr -> write(data => \$qr, type => "png");
 
my $image = Image::Magick -> new;
$image -> BlobToImage($qr);
 
print "Content-type: image/png\n\n";
binmode STDOUT;
$image -> Write("png:-");
undef $qr;
undef $image;
 
exit;

サンプルコードです。

Imager::QRCode Image

Imager::QRCode 0.034+出力結果です。

スポンサードリンク
スポンサードリンク