2015/01/08(木)pure perl で JPEG の Exif を表示や削除したい プログラム::Perl 機能 対応はJPEGファイルのみ。 外部モジュール不要。 再圧縮せずにExif情報を削除することができます。 Exif判別やExif表示はやや手抜きですが、よほど特殊なJPEGでない限り問題にならないと思います。 ライセンスはWTFPLですが、一言「使ったよ」ってコメントくれると嬉しいです。 バグがあったら具体的なJPEGデータと共にコメントください。 スクリプト 続きを読む
