用Perl regex替换批量重命名文件

Posted 2021-02-27

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了用Perl regex替换批量重命名文件相关的知识，希望对你有一定的参考价值。

#!/usr/bin/env perl -w
use strict;
 
# Batch rename files with Perl regex substitutions
# Perl administration files rename
#
# Larry Wall's filename fixer: recipe 9.9 in Perl Cookbook 
 
$op = shift 
	or die "Usage: $0 expr [files]
";
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
    $was = $_;
    eval $op;
    die [email protected] if [email protected];
    rename($was, $_) unless $was eq $_;
}

以上是关于用Perl regex替换批量重命名文件的主要内容，如果未能解决你的问题，请参考以下文章