perl 打开带有动态日期的csv文件？

Question

如何打开日期每天都在变化的 CSV 文件，其中日期格式为 yyyy 表示年份，dd 表示日，mmm 表示 3 个字母的月份。

这是我所知道的

  #!/usr/bin/perl

  use strict;
  use warnings;

  #Set-up Input Files
  #Inputfile
  $INFILE = "C:\\DBR_%yyyy\\%b\\Failures_input%d%h\\.csv";

  #Open input file for reading
  open (INPUT,"$INFILE") or die " cannot open $INFILE  ";

Answer 1

您的要求非常不清楚，并且您没有在模式中提及 %d 和 %h。

如果您想打开最新的 CSV 文件，那么您需要对路径进行嵌套搜索，找到最新的日期和时间。

这里有一些东西可能会有所帮助。此代码生成将为当前日期和时间创建的文件的路径。它使用Time::Piece 模块，它是核心 Perl 的一部分，不需要安装。默认情况下，它会重载 localtime 运算符，以便在标量上下文中返回 Time::Piece 对象。这允许直接应用模块的实用方法。

use strict;
use warnings;

use Time::Piece;

my $failures_file = localtime->strftime('C:\DBR_%Y\%b\Failures_input%d%b.csv');
my $invoices_file = localtime->strftime('C:\%Y\%b\invoices%d%b.csv');

print $failures_file, "\n";
print $invoices_file, "\n";

输出

C:\DBR_2014\Mar\Failures_input17Mar.csv
C:\2014\Mar\invoices17Mar.csv

但是我认为您更可能希望 latest 文件的名称具有该格式的路径，这有点复杂（并且是一个可怕的系统设计）。请验证您的要求，我们将能够为您提供进一步的帮助。

Answer 2

我想写一个关于localtime Perl 函数的答案，但是its documentation 太完整了，它甚至包括关于三字母缩写的内容。

关于文件名的字符串文字的几点说明：

• 即使在 Windows 上，您也可以使用单个正斜杠
• 您不必用反斜杠转义点
• 您可以将变量“插入”到字符串中："DBR_$yyyy" 如果$yyyy 是一个变量。

Answer 3

我赞同 SzG 的一般建议。

下面展示了如何使用两个核心模块将日期格式添加到文件名中。

使用Time::Piece（在 Perl 5.8 版以后的核心中）：

use Time::Piece;

use strict;
use warnings;

my $infile = localtime->strftime('C:\DBR_%Y\%b\Failures_input%d.csv');

或者，如果您正在处理一个古老的盒子，请使用 POSIX 和 strftime。要查找可用的说明符，只需google strftime：

use POSIX qw(strftime);

use strict;
use warnings;

my $infile = strftime 'C:\DBR_%Y\%b\Failures_input%d.csv', localtime;

输出：

C:\DBR_2014\Mar\Failures_input16.csv