arrays - 如何遍历数组并获取匹配数?
问题描述
我正在尝试检查目录中是否有我期望的文件数量。我需要检查文件是否与我通过的正则表达式匹配。我将正则表达式字符串传递并拆分为一个数组,有人可以帮助我吗?谢谢
my $dir = 'C:\Users\dealmeidal\Desktop\perl_file';
my $string = '3-qr/Clawbacks_20190421\.csv$/-qr/Premiums_20190421\.csv$/-qr/Polizza_20190421\.csv$/';
my @array_regex_tot = (split /-/, $string);
my $expected_file_num = int(shift(@array_regex_tot));
my $file_counter = 0;
checkFilesInDirectory($dir, \@array_regex_tot, $expected_file_num);
sub checkFilesInDirectory {
my ($dir_path, $array_reg, $file_previsti) = @_;
opendir (DIR, $dir_path) or die "Can't open $dir_path: $!";
foreach my $file (@file) {
foreach my $regex (@$array_reg) {
if ($file =~ $regex) {
$file_counter++;
}
}
}
if ($file_counter < $expected_file_num) {
print "KO. Less files than expected.\n";
} elsif ($file_counter == $expected_file_num) {
print "OK Correct num of files\n";
} elsif ($file_counter > $expected_file_num) {
print "WARNING More files than expected.\n";
}
closedir(DIR);
}
解决方案
问题是您不能在模式中包含实际的 Perl 代码。你得到的是创建预编译模式的 Perl 命令,而不是模式。因此,该qr//
位在您的比赛中被视为文字。您将通过打开正则表达式调试来看到:
use re 'debug';
my $pattern = 'qr/Clawbacks_20190421\.csv$/';
'Clawbacks_20190421.csv' =~ $pattern;
这将输出:
Compiling REx "qr/Clawbacks_20190421\.csv$/"
Final program:
1: EXACT <qr/Clawbacks_20190421.csv> (9)
9: SEOL (10)
10: EXACT </> (12)
12: END (0)
anchored "qr/Clawbacks_20190421.csv"$ at 0 (checking anchored) minlen 26
Freeing REx: "qr/Clawbacks_20190421\.csv$/"
如您所见,qr/
and/
是模式的一部分,与您的文件名不匹配。如果您无法更改输入字符串,则必须进行清理。
my $pattern = 'qr/Clawbacks_20190421\.csv$/';
$pattern =~ m{^qr/(.+)/};
my $clean = $1;
'Clawbacks_20190421.csv' =~ $clean;
我们在这里使用不同的分隔符来避免斜杠。
推荐阅读
- c# - 有没有办法在运行时将 Browserstack 应用程序自动化的测试标记为失败?
- ios - 在 iOS 中处理字体格式
- dart - 包含固定列表视图的列表视图
- python - Chainer - 使用 GPU 进行预测
- c# - 无法在 ConfigureServices 中使用已注册的信号,除非它们被实例化两次
- c# - 聚合根工厂可以创建根,它是内部类吗?
- reactjs - React 组件的 Typescript 定义文件故障排除
- r - 如何将对象从 S3 存储桶加载到 RStudio 中的 Spark 中?
- redis - 将槽分配给节点方法
- vuejs2 - 如何在 vue-slick 中使用 asNavFor