如何在目录中找到最新创建的文件夹

Question

任何人都可以帮我解决下面的问题。

以下是一些事实：

• 我正在使用Windows XP。

• 我们有目录/abc5/def/ghi/dcl_201107_hy79u_02。其中内部子目录名称（dcl_201207_hy79u_02部分）每周使用以下规则更改：

  dcl_<year><week>_hy79u_<some_number>
  

  e.g。第8周为dcl_201208_hy79u_05，第9周为dcl_201209_hy79u_06。

  就我们而言，<some_number>部分（即02,05或06）是一些随机数。

• 在此目录下将有60个文件，这些文件名将如下：

  dcl_201207_hy79u_02_epoc32_include_internal.zip

现在我想要实现的是：

每周都会在FTP服务器上创建一个新目录，我们必须复制100个文件中的64个文件。我正在进行的是复制文本文件中的所有64个文件名称并读取每一行并拉出我想要的文件。问题是我无法找到最新创建的文件夹，也无法根据本周修改这些文件名。 我尝试使用此社区建议的模板，但我失败了，因为Perl非常新:(

所以我试图在每个文件中替换字符串dcl_201207_hy79u_02。

e.g。对于第8周，目录名称为dcl_201208_hy79u_05，然后在每个文件中替换此字符串。

Answer 1

如果您在$w中有周数，则当sprintf("week%02dsuffix", $w)为1时，函数week01suffix会返回$w