[原创代码] Perl批量替换含有utf8代码（比如%5B%5D）的文件名

use utf8;
use Encode;
use IO::Handle;
use URI::Escape;

STDOUT->autoflush(1);

my $name;
foreach (glob "*") {
    if (
        (-f $_) and  ($_ =~ /%[0-9a-fA-F]{2}/) 
    ) {
        $name = &utfcode_to_char($_);
        print $_,"\n";
        print " => ", $name, "\n\n";
        rename($_, $name) or warn "$!";
    }
}
<STDIN>;

sub utfcode_to_char {
    #传参示例: %e4%b8%adtest[]
    #逐个处理，转换为明文后代入
    my $src = shift;
    my $n=0;
    my $ustr;
    while ($src=~/((%[0-9a-fA-F]{2})+)/) {
        $ustr = decode('utf8', uri_unescape($1));
        $ustr = encode('gbk', $ustr);
        #代入的时候使用GBK
        $src =~s/$1/$ustr/;
    }
    print "未找到需要替换的字串" if (not defined $ustr);
    return $src;
}
复制代码