コマンドラインでconvert -density 300 sample.pdf out.png
はできたのに、以下は変化しない。
my $img = Image::Magick->new();
$img->BlobToImage($pdf_data); #読み込み
$img->Set(density => '300', magick => 'png');
@png_data = $img->ImageToBlog(); #書き出し
悩んだあげく読み込み前に記述で出来た。
my $img = Image::Magick->new();
$img->Set(density => '300');
$img->BlobToImage($pdf_data); #読み込み
$img->Set(magick => 'png');
@png_data = $img->ImageToBlog(); #書き出し
うへぇ、なんでだろ。ドキュメントに書いてあったかなぁ、、、
蛇足:gsでpdf->画像変換の場合
gs -dSAFRE -dBATCH -dNOPAUSE -sDEVICE=png16m -r400 -sOutputFile=out_%d.jpg sample.pdf
って%dを書かないと、1ページ目しか出力されないです。
image to pdf
convert *.jpg output.pdf