用Perl + Image::Info 模块就可以阿。