2008年12月19日(金)

アップロードした画像を EXIF の情報に基づいて、サーバ側で回転させたいと思っていろいろやった結果、 image::magick でできることは分かった。

my($Orientation) = $image->Get("Exif:Orientation");
if($Orientation == 8)
{
	$image->Rotate(degrees=>270);
}
elsif($Orientation == 6)
{
	$image->Rotate(degrees=>90);
}

しかし、回転した後に orientation を正常な値に直せない。

$image->Set('Exif:Orientation'=>1);

これではダメらしい。どうしたらいいのか誰か教えて。