老爸的工具箱之：根据日期批量重命名照片

突发奇想，想搞出这么个“老爸的工具箱”系列来，虽然我不确定这个系列中最终会有多少文章，但是感觉在女儿的成长过程中，会有不少内容逐渐添加进来，一来作为记录，二来也希望对其他和我一样的老爸有点参考。

好吧，第一个工具是一个照片批量重命名的工具。女儿出生以来，我们每天都要给她拍一张照片来记录她的成长，看着小家伙一天天变样，的确是一件挺喜人的事。但这事操作起来也有点麻烦，基本流程是：

 

1. 每天拍好几张照片
2. 从中挑出比较好的一张
3. 按照日期命名后存档，并上传到SkyDrive 

但要是每天都这么做，难免太累了点，我差不多在数码相机中积累一个月的时候才会去整理一下。选出每天的照片（这个比较难自动化吧），此时如果去手工命名30张照片绝对是件痛苦的事，慢，烦，且容易出错。我希望能有个工具自动根据日期重命名照片，于是写了个perl的脚本来重命名指定目录下所有的jpg文件。只需把选中的照片都拷到一指定目录下，并调用以下命令：

        BatchRenaming.pl <Folder> 

需要注意的是：

 

1. 程序只处理指定目录，并不会递归扫描其所有的子目录 
2. 如果你不小心选了多张同一天的照片，程序会自动帮你备份到名为backup的子目录中

以下是程序代码，另外，你也可以在 这里拿到持续维护的版本。

 

BatchRenaming

 1  # ####
 2  #
 3  # This script would rename all jpg files in a folder to its creation date, for example: 20101009
 4  # For a photo, the real creation date = modified date
 5  #
 6  # Usage:
 7  # BatchRenaming.pl <Folder>
 8  # BatchRenaming.pl C:\MyPhotoes\
 9  #
10  # Author: Baiyan Huang
11  # Date: 10/9/2010
12  #
13  #####
14 
15  use  strict;
16  if ( @ARGV   !=   1 )
17  {
18       print   " The syntax should be:\n\tBatchRenaming.pl <Folder> \n " ;
19  }
20 
21  my   $Folder   =   $ARGV [ 0 ]; 
22  $Folder   =~  s /^\ s *// ;
23  $Folder   =~  s /\ s * $ // ;
24  $Folder   =~  s /\\/\// g;
25  $Folder   .=   " / "   if ( $Folder   !~   /\/ $ / );
26  # ##print $Folder, "\n";
27 
28  chdir   $Folder ;
29  my   @AllFiles   =   glob   " *.jpg " ;
30  # ##print @AllFiles, "\n";
31 
32  foreach   my   $File  ( @AllFiles )
33  {
34       chomp   $File ;
35      
36       #  Get modified timestamp
37       my   $mtime ;
38       my ( undef ,   undef ,   undef ,   undef ,   undef ,   undef ,   undef ,   undef ,   undef ,   $mtime )  =   stat ( $File );
39      
40       #  Get relative date
41       my  ( $day ,   $mon ,   $year );
42       my ( undef ,   undef ,   undef ,   $day ,   $mon ,   $year )  =   localtime ( $mtime );
43       
44       #  Tranform to human-readable date
45       $year   =   1900   +   $year ;
46       $mon   +=   1 ;
47       $mon   =   " 0 "   .   $mon   if ( $mon   <   10 );
48       $day   =   " 0 "   .   $day   if ( $day   <   10 );
49      
50       my   $date   =   $year   .   $mon   .   $day ;
51       # ##print "$date\n";
52      
53       my   $NewFileName   =   $date   .   " .jpg " ;
54      
55       #  Backup the file if there is already one exist of the same date
56       if  ( - e  $NewFileName  and  lc ( $NewFileName ) ne  lc ( $File ))
57      {
58           my   $Backup   =   " backup " ;
59           mkdir   $Backup   if ( !   - e  $Backup );
60           rename   $File ,   $Backup   .   " / "   .   $File ;
61           next ;
62      }
63      
64       #  rename
65       print   $NewFileName ,   " \n " ;
66       rename   $File ,   $NewFileName ;
67  }
68 

 

 

 

 

转载于:https://www.cnblogs.com/baiyanhuang/archive/2010/10/10/1847471.html