Question

我是perl的新手并且正在编写一个脚本来查找具有最新修改时间戳的模式匹配的文件并复制到另一个位置。

我的代码正在使用Mac，但在Windows服务器上遇到问题。

use strict;
use warnings;

use File::stat;

my $UNC ="/Users/documents/";
my $FileNamePrefix = "abc*.csv";
my @files = sort {stat($a)->mtime <=> stat($b)->mtime} glob($UNC.$FileNamePrefix);

my $Recon = $files[-1];
print "Latest   = $Recon\n";

有人可以帮我解决这个问题吗，谢谢

来源地点： abc_20181.csv（todaydate） abc_20182.csv（todaysdate）

目标位置： abc_20182.csv

Answer 1

您可以使用File :: Spec创建路径，它将根据运行的操作系统创建正确的语法。例如：

var val = document.getElementById('Dynm_Val_' + id_cnt).value; // single
var textboxElements = document.querySelectorAll('input.adcol'); // array of elements

这将在Mac上生成“/Users/documents/abc*.csv”模式，在Windows上生成“\ Users \ documents \ abc * .csv”。

有关更多示例，请参阅“perldoc File :: Spec”。

从模式匹配的目录中获取最新文件：Perl

1 个答案: