使用 Perl 重命名 windows 中的文件

Question

我的程序需要重命名以这样结尾的文件

文件(1) 文件(2) 文件(3)

我希望他们重命名为这个

文件_1 文件_2 文件_3

我在 c++ 中尝试过这个，但似乎效率不高。我认为 Perl 会很适合它，但不知道从哪里开始。

Answer 1

你的问题是从哪里开始？所以从Here开始perl

要重命名文件，请查看Here。

要打开目录和读取，请查看here。

然后也在这里查看glob。

Answer 2

#!/usr/bin/perl
use strict;
use warnings;

my $dir =       'folder';
my @dir =       ();

opendir(DIR, $dir);
@dir    =       readdir(DIR);
closedir(DIR);

foreach my $file (@dir) {
    my $f=$file;
    $f =~ s/\(/_/;
    $f =~ s/\)//;
    rename "$dir/$file", "$dir/$f";
}

s/\(/_/ 中的\( 匹配文件名file(1) 中的“（”并替换为“_”，因此$f =~ s/\(/_/; 使$f 变为file_1)。@987654330 中的\) @ 匹配文件名file_1) 中的“）”并替换为“”（无），因此$f =~ s/\)//; 使$f 变为file_1。