Question

我是perl的新手，我们需要从每天创建的文件夹中拾取文件。
有什么方法可以像使用sysdate或其他任何东西一样吗？
路径就像http：\\ com.test.ci \ TEST01 \ new_folder_created_daily \ *。*
无论如何动态完成这项工作？

Answer 1

我假设你想要对最近创建的文件夹采取行动。我也会假设您要等到第二天，因为这个文件夹可能会全天写入...如果没有，请忽略$yesterday内容并使用$today代替

使用Time :: Piece and Time :: Seconds，自5.009005以来一直是核心模块。

use Time::Piece;
use Time::Seconds;

my $today = localtime;
my $yesterday = $today - ONE_DAY;
my $folder = $yesterday->mdy("");

print $folder . "\n"

# do stuff to http:\\com.test.ci\test01\$folder

基本上我们创建一个Time :: Piece对象，并使用Time :: Seconds中的一个元素创建$yesterday减去它一天。我们并不关心时间，因此请将其格式化为mdy并将其附加到您的父路径。

mdy（＆＃34;＆＃34;）只表示m，d和y之间没有分隔符。如果您改为编写$yesterday->mdy()，则会将其格式化为MM-DD-YYYY。有关日期格式，计算，比较和解析的详细信息，请参阅CPAN上的Time::Piece。

使用perl查找动态文件夹

1 个答案: