Perl 如何找到相同图片并删除

wyc198801wyc

最近在家整理照片，发现有些照片是名字不同但是照片是一样的（例：a.jpg 和 a(1).jpg是一样的照片，名字不一样），由于照片太多不能一个一个删除（1万张左右），所以想用Perl来实现，查找了一些CAPNA的模块，好像没有实现这个功能的。求大神指点。

sunzhiguolu

重点说一下 名字不同但是照片是一样的名字部分有什么特点没有？
将相同照片但名字不同那些名字举例:
如: a.jpg a(1).jpg a_3.jpg 属于同一张照片等等。。。

wyc198801wyc

回复 2# sunzhiguolu

例如：IMG_0018.jpg  IMG_0018 (1).jpg    IMG_0018 (2).jpg 这三张照片就是一样的。我看了一下，还有这种情况，IMG_0018 (1).jpg 和 IMG_0018 (2).jpg 是一样的照片，而IMG_0018.jpg不是一样的照片，所以在这种情况下就不能把(1)和(2)删掉。
所以我想是不是能有一种识别照片其他唯一属性的方法，而不是通过名字去找到相同照片再删掉
谢谢指点

sunzhiguolu

回复 3# wyc198801wyc
我明白了，你找到的是 android 某清理大师里面的查找相似照片的功能。这个功能很牛 B 呀，实现这个功能我觉得不太容易。

wyc198801wyc

sunzhiguolu 发表于 2017-01-23 15:07
回复 3# wyc198801wyc
我明白了，你找到的是 android 某清理大师里面的查找相似照片的功能。这个功能很牛 ...

那个工具我倒不知道，只不过昨天整理照片重复太多，没法整理，只好把大概的删掉，今天想问问大家有没有什么想法

wyc198801wyc

回复 5# sunzhiguolu

哈哈，好的，了解了，谢谢

sunzhiguolu

回复 7# wyc198801wyc
你不会是直接导入手机 求助大师去整理吧？？？

jason680

回复 1# wyc198801wyc

1. check sum (ex: MD5) check

2. rename (safety measure)
  a.jpg      
  a(1).jpg   => a.a(1)--delete.jpg
  x.jpg       => a.x--delete.jpg

  b123.jpg
  b123(1).jpg  => b123.b123(1)--delete.jpg
  xyz.jpg  => b123.xyz--delete.jpg

3. double check again

4. remove
  rm *--delete.jpg

wyc198801wyc

回复 9# jason680

谢谢大神，很好的思路，我明白了，去试一试

wyc198801wyc

回复 8# sunzhiguolu

没有，当然还是得用电脑了，手机再强大也还是手机