PerlMagickでのPNG保存

質問

PerlMagickでPNG形式のファイルを保存するときに、ドライブ名も含めたフルパスで保存先を指定すると、ファイルが壊れてしまうようなのですが、何が問題なのでしょうか？

因みにJPGなどは、同じようにしても問題ありませんでした。
PNG形式でも、ドライブ名を含めずに相対パスで保存先を指定した場合は問題ありませんでした。

例：
$i = Image::Magick->new;
$i->Read('a1.png');

$i->Write('a2.png');
$i->Write('C:\a3.png');

このように開いて保存するだけでもa2.pngは正常で、a3.pngは壊れているようです。ファイルサイズも違います。
できればフルパス指定で保存したいのですが、どのように
設定すればよろしいか、教えていただけませんか。

回答No.1

pica_zip · ベストアンサー

本当ですね～。 WinXP + ActivePerl + ImageMagick(ppm) でも再現できました。
とりあえずの回避策で
以下のようにドライブ名を含めないパスで正常なものを保存して、
コピーするのはどうでしょうか？

use strict;
use Image::Magick;

my ($image, $x);
my ($source_path, $target_path, $target_path1) = ('pic01.png', 'copy01.png', 'c:\copy01.png');

$image = Image::Magick->new;

$x = $image->Read($source_path);
$x = $image->Write($target_path); # OK
# $x = $image->Write($target_path1); # NG

open IN, "<$source_path";
open OUT, "+>$target_path1";
binmode IN;
binmode OUT;
my $bin = join('',<IN>);
print OUT $bin;
close IN;
close OUT;

exit;

回答No.2

pica_zip

open IN, "<$source_path"
--> open IN, "<$target_path"
に訂正です。