Question

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

文件（1）文件（2）文件（3）

我希望将它们重命名为此

file_1 file_2 file_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/\(/_/与＆＃34;（＆＃34;在文件名file(1)中匹配，并替换为＆＃34; _＆＃34;，所以{{ 1}}使$f =~ s/\(/_/;成为$f。file_1)中的$与＆＃34;）相匹配＆＃34;在文件名s/\)//中，替换为＆＃34;＆＃34; （无），file_1)使$f =~ s/\)//;成为$f。

使用Perl重命名Windows中的文件

2 个答案: