使用 Perl 重命名目录中的文件

Question

我想要一个目录，对于所有电子邮件 (*.msg) 文件，删除开头的“RE”。我有以下代码，但重命名失败。

opendir(DIR, 'emails') or die "Cannot open directory";
@files = readdir(DIR);
closedir(DIR);

for (@files){
    next if $_ !~ m/^RE .+msg$/;
    $old = $_;
    s/RE //;
    rename($old, $_) or print "Error renaming: $old\n";
}

Answer 1

如果您的 ./emails 目录包含这些文件：

1.msg
2.msg
3.msg

那么您的 @files 将类似于 ('.', '..', '1.msg' , '2.msg', '3.msg') 但您的重命名想要像'emails/1.msg'这样的名称， 'emails/2.msg' 等。因此您可以 重命名之前的 chdir：

chdir('emails');
for (@files) {
    #...
}

您可能还想检查 chdir 返回值。

或者自己添加目录名称：

rename('emails/' . $old, 'emails/' . $_) or print "Error renaming $old: $!\n";
# or rename("emails/$old", "emails/$_") if you like string interpolation
# or you could use map if you like map

您可能希望使用 grep< 组合目录读取和过滤/code>：

my @files = grep { /^RE .+msg$/ } readdir(DIR);

甚至是这样：

opendir(DIR, 'emails') or die "Cannot open directory";
for (grep { /^RE .+msg$/ } readdir(DIR)) {
    (my $new = $_) =~ s/^RE //;
    rename("emails/$_", "emails/$new") or print "Error renaming $_ to $new: $!\n";
}
closedir(DIR);

Answer 2

您似乎假设 glob 类似的行为而不是 readdir 类似的行为。

底层的 readdir 系统调用仅返回目录中的文件名，并将包含两个条目 . 和 ..。这会延续到 Perl 中的 readdir 函数，只是为了提供有关 mu 答案的更多详细信息。

或者，如果您无论如何都要收集数组中的所有结果，那么使用 readdir 就没有多大意义。

@files = glob('emails/*');

Answer 3

正如已经提到的，您的脚本失败是因为您期望的路径和脚本使用的路径不同。

我建议采用更透明的用法。 IMO，对目录进行硬编码不是一个好主意。有一天，当我制作一个脚本来更改一些原始文件并使用硬编码路径时，我了解到，我的一位同事认为这是一个很好的脚本，可以借用来更改他的副本。哎呀！

用法：

perl script.pl "^RE " *.msg

即正则表达式，然后是文件全局列表，其中路径表示与脚本相关的路径，例如*.msg、emails/*.msg< /code> 甚至 /home/pat/emails/*.msg /home/foo/*.msg。 （可能有多个全局变量）

使用绝对路径将使用户毫不怀疑他将影响哪些文件，并且还使脚本可重用。

代码：

use strict;
use warnings;
use v5.10;
use File::Copy qw(move);

my $rx = shift;   # e.g. "^RE "

if ($ENV{OS} =~ /^Windows/) {  # Patch for Windows' lack of shell globbing
    @ARGV = map glob, @ARGV;
}

for (@ARGV) {
    if (/$rx/) {
        my $new = s/$rx//r;  # Using non-destructive substitution
        say "Moving $_ to $new ...";
        move($_, $new) or die $!;
    }
}

Answer 4

我不知道正则表达式是否适合文件的指定名称，但是可以用一行代码来完成：

perl -E'for (){ ($new = $_) =~ s/(^RE)(.*$)/$2/; say $_." -> ".$new}

（say ... 很适合测试，只需将其替换为 rename $_,$new 或 rename($_,$new) )

1. <*.*> 读取当前目录中的每个文件
2. ($new = $_) = ~ 将以下替换保存在 $new 中并将 $_ 保持原样
3. (^RE) 将此匹配项保存在 $1 中（可选），并仅匹配开头带有“RE”的文件
4. (.*$ ) 保存所有内容，直到并包括该行的末尾 ($) ->将匹配项替换为 $2
5. 中的字符串 $2