電線の画像

Pointgets.net

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

Exifの情報を削除した画像をPerlモジュールのImage::Magickで生成

PerlモジュールのImage::Magickを使用して、Exif等の情報を画像から削除して出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Image::Magick;
 
my $image = Image::Magick -> new;
$image -> Read("sample.jpg");
$image -> Strip;
$image -> Write("sample.JPG");
undef $image;
 
exit;

サンプルコードです。Exif等の情報をImage::MagickStripで画像から削除すると、画像の容量が削減されました。

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