Python和perl實現(xiàn)批量對目錄下電子書文件重命名的代碼分享

更新時間：2014年11月21日 09:14:24 投稿：junjie

這篇文章主要介紹了Python和perl實現(xiàn)批量對目錄下電子書文件重命名的代碼分享,本文同時給出了Python和perl兩種語言的實現(xiàn)代碼,需要的朋友可以參考下

經(jīng)常會遇到下載的文件或電子書，名字中間都包含了一些網(wǎng)址信息，實際使用中由于名字太長不方便，下面的腳本使用正則表達式來對目錄下的所有文件重命名：
例如：

修改前：[腳本之家]Mac OS X for Unix Geeks[www.dbjr.com.cn].mobi
修改后：Mac OS X for Unix Geeks.mobi

python代碼如下:

復(fù)制代碼代碼如下:

import os
import re

def rename_dir(dir,regex,f):
if not os.path.isdir(dir) or not os.path.exists(dir) :
    print("The input is not one directory or not exist.")
for root,subdirs,files in os.walk(dir):
    for name in files:
      oldname = name
      newname = re.sub(regex,f,name)
      print("Before : " + os.path.join(root,oldname))
      print("After : " + os.path.join(root,newname))
      if not name == newname and not os.path.exists(os.path.join(root,newname)):
        os.rename(os.path.join(root,oldname),os.path.join(root,newname))
    for dir in subdirs:
        rename_dir(os.path.join(root,dir))

rename_dir("C:\\Python31\\test","\[.*\](.*)\[www.dbjr.com.cn\](.*)",lambda m:m.group(1)+m.group(2))

用perl寫了下，感覺代碼也沒有少寫多少

復(fù)制代碼代碼如下:

use strict;
use warnings;
use File::Find;

my $regex = "\\[.*\\](.*)\\[www.dbjr.com.cn\\](.*)";
# $replace doesn't work
my $replace = "\$1\$2";

sub wanted {
my $name = $File::Find::name;
if( -f $name){
   my $newname =$name;
   $newname =~ s/$regex/$1$2/;
   print "Before: $File::Find::name\n";
   print "After : $newname\n";
   if( !-e $newname) {
     rename($name, $newname);
   }
}
}

sub rename_dir{
my ($dir,) = @_;
if (!-d $dir || !-e $dir){
print"The input is not directory or not exist.";
}
find(\&wanted, $dir);
}
&rename_dir("c:\\perl\\test");

perl 實現(xiàn)2

復(fù)制代碼代碼如下:

use strict;
use warnings;

my $regex = "\\[.*\\](.*)\\[www.dbjr.com.cn\\](.*)";
# $replace doesn't work
my $replace = "\$1\$2";

sub rename_dir{
    my $dir = shift;
    if (!-d $dir || !-e $dir){
      print"The input is not directory or not exist.";
    }
    opendir(DIR, $dir) || die "Cannot opendir $dir.";
    foreach (readdir(DIR)) {
      if ($_ eq '.' || $_ eq '..') {next;}
      my $name = $dir.'/'.$_;
      if(-d $name){
        rename_dir($name);
        next;
        }
      my $newname =$_;
      $newname =~ s/$regex/$1$2/;
      $newname = $dir.'/'.$newname;
      print "Before : $name\n";
      print "After : $newname\n";
      rename($name,$newname);
    }
    #closedir(DIR);
}
&rename_dir("c:\\perl\\test");