使用 perl 在 windows 中组织文件

Question

我在 Windows 机器上工作，我有一个目录，里面有大约 200k 的文件，我需要整理这些文件。这是我需要定期使用不同的文件名集但具有相似模式的工作，因此 perl 似乎是一个很好的工具。

每个文件名由{a string A}{2 or 3 digit number B}{single letter "r" or "x"}{3 digit number}.extension

我想为每个字符串 A 创建一个文件夹

在每个文件夹中，我希望每个 B 都有一个子文件夹

然后我想将每个文件移动到其相关的子文件夹中

所以它最终会看起来像

/CustomerA/1
/CustomerA/2
/CustomerA/3
/CustomerB/1
/CustomerB/2
/CustomerB/3

等每个子文件夹中的文件

所以 CustomerA888x123.xml 被移动到 /CustomerA/888/

我有一个数组中的文件列表，但我正在努力将文件名拆分为其组成部分并有效地使用这些部分。

感谢您的回答。我最终得到了这个：

#!usr/bin/perl
use warnings;
use strict;
use File::Copy qw(move);
use File::Path qw(make_path);

opendir my $dir, ".";
my @files = readdir($dir);
closedir $dir;

foreach my $file (@files) {
    my ($cust, $num) = $file =~ m/(\D+)(\d+)/;
    my $dirname = "$cust/$num";
    my @dirs_made = make_path($dirname, { verbose => 1 });
    move($file, $dirname) or warn "cant move $file to $dirname: $!";
}

Answer 1

鉴于您对文件名的描述，这个正则表达式应该解析您需要的内容

my ($cust, $num) = $filename =~ m/(\D+)(\d+)/;

如果您希望或需要更具体地说明数字前面的内容，请使用更精确的模式，例如 [a-zA-Z] 仅用于字母。

有了这些，您可以使用核心模块File::Path 创建目录，例如

use File::Path qw(make_path);
my $dirname = "$cust/$num";
my @dirs_made = make_path($dirname, { verbose => 1 });

这会根据需要创建路径，并返回创建的目录的名称。它还打印带有verbose 的名称。如果目录存在，它会悄悄地跳过它。如果有问题，它会引发die，因此您可能希望将其包装在eval

eval { make_path($dirname) };
if ($@) { 
    warn "Error with make_path($dirname): $@";
}

还要注意File::Path::Tiny 模块作为替代，感谢Sinan Ünür 提出它。除了更轻巧之外，它还具有更常见的错误处理策略，即在失败时返回 false，因此您不需要 eval 而只需要通常的检查

use File::Path::Tiny;
File::Path::Tiny::mk($path) or warn "Can't mk($path): $!";

该模块在许多方面的行为类似于mkdir，请参阅链接文档。

例如，使用move 函数将文件从核心模块File::Copy 中移出

use File::Copy qw(move);
move($file, $dirname)  or warn "Can't move $file to $dirname: $!";

所有这些都可以在带有文件名的数组上循环。