perl – 循环文件行,如果文件不存在则禁止错误

发布时间：2020-12-16 06:10:33 所属栏目：大数据来源：网络整理

导读：我在 shell Perl脚本中有以下内容： my @LS = `ls -1t /logs/log.csv.*`;foreach my $line (@LS) { 如果实际存在一个或多个log.csv.*文件,则此方法可以正常工作. 但如果没有日志文件,我会收到错误： ls：无法访问… 我可以以某种方式抑制此警告,因为shell脚

我在 shell Perl脚本中有以下内容：

my @LS  = `ls -1t /logs/log.csv.*`;
foreach my $line (@LS) {

如果实际存在一个或多个log.csv.*文件,则此方法可以正常工作.

但如果没有日志文件,我会收到错误：
ls：无法访问…

我可以以某种方式抑制此警告,因为shell脚本是一个cron脚本,如果没有文件就可以了吗？

解决方法

在Perl中完成所有操作,包括按上次修改时间戳进行反向排序：

在这个例子中,我也做了它,所以它只对每个文件执行一次“stat”.

my @LS = glob('/logs/log.csv.*');

my @mtimes = map { (stat)[9] } @LS;

my @sorted_indexes = sort { $mtimes[$b] <=> $mtimes[$a] } 0 .. $#mtimes;

foreach my $line ( @LS[ @sorted_indexes ] ) {
    ...
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!