正则表达式 – 如何编写Perl脚本来过滤掉已经过修改的数字图片？

the ability to have any character in a string means you can create,scan,and manipulate raw binary data as strings.

一个想法立即打击我,我实际上可以让Perl扫描我存储在硬盘上的图片,以检查它们是否包含Adobe字符串.通过这样做,我可以分辨出哪些已被拍照.所以我尝试实现这个想法并提出以下代码：

#!perl
use autodie;
use strict;
use warnings;

{
    local $/="nn";
    my $dir = 'f:/TestPix/';
    my @pix = glob "$dir/*";

    foreach my $file (@pix) {
        open  my $pic,'<',"$file";

        while(<$pic>) {
            if (/Adobe/) {
                print "$filen";
            }
        }
    }
}

令人兴奋的是,代码似乎真的很有效,它可以过滤出已经过photoshopped的图片.但问题是许多图片是由其他公用事业编辑的.我想我有点卡在那里.我们是否有一些简单但通用的方法来判断数字图片是否已被编辑,例如

if (!= /the origianl format/) {...}

或者我们只需添加更多条件？喜欢

if (/Adobe/|/ACDSee/|/some other picture editors/)

有什么想法吗？或者由于我的编程知识极其有限,我还是过于简单化了？

一如既往地感谢任何指导.