如何在Perl中忽略时间戳范围内超过两小时的文件

bogh5gae 于 2022-11-15 发布在 Perl

关注(0)|答案(1)|浏览(126)

我试图设置一个时间戳范围的文件，这是不超过2小时的Perl。采取时间从文件的格式为“5月26日20：30文件名.csv”的Perl格式。
下面是我设置的内容：

use File::stat;
my $stat = stat($file);

# To start a time within a range or no more than 2 hours
my $start = UnixDate("now", "%m%d %H:%M"); 
my $stop = UnixDate("$start"+2, "%m%d %H:%M");  // here max it to 2 hours, not sure this part
if ($stat->$start <= $stat->$stop) { next; }

perl

来源：https://stackoverflow.com/questions/72623811/how-to-ignore-files-over-two-hours-from-a-timestamp-range-in-perl

1条答案

按热度按时间

41zrol4v1#

既然您说UnixDate返回一个epoch时间戳，那么您所需要的就是：

my $cutoff = time - 2*60*60;

my $file_time = UnixDate( "%m%d %H:%M", $fn );
next if $file_time < $cutoff;

赞(0）回复(0）举报 2022-11-15

我来回答

如何在Perl中忽略时间戳范围内超过两小时的文件

1条答案

相关问题

热门标签

最新问答