0

我有这个 PERL Switch..case 语句：

switch ($today)
{ 
    case "14-Aug-2012"  { do A }
    case "15-Aug-2012"  { do B }
}#end switch

我的问题是，2012 年 8 月 15 日的“做 B”声明与 2012 年 10 月 1 日相同。我如何说这些日期之间的大小写，这样我就不必在不同的日子重写相同的东西并使我的脚本变长？

我已经放入了整个脚本，因此有人可以帮助我使用我必须处理的问题来管理我的问题。

use Date::Calc
use Switch

#connect to database...

my @date_today=Today();
my $today=substr(Date_to_Text(@date_today),4,11);

Switch($today)
{
  case "14-Aug-2012" {Do A}
  case "15-Aug-2012" {Do B}
  case ...
  case ...
  case ...
}

最后 3 个 case 语句应该这样做：

  between 16-Aug-2012 and 28-Sep-2012 {do C}
  between 29-Sep-2012 and 26-Oct-2012 {do D}
  between 27-Oct-2012 and 09-Nov-2012 {do E}
4

3 回答 3

2

使用软件工程方法。

如果您需要在整个日期范围内执行相同的操作，请使用该范围的 ID 作为谨慎的值来选择。然后有一个子程序告诉你日期所在的范围 ID 是什么：

sub range_for_date {
    my $date = shift;
    # Compute the range value in some discreet subset
    # How to compute it is somewhat irrelevant
    #      and can be asked separately if you have no idea
    # discreet subset can be an index 1..N, ecpoch timestamps,
    # or a somehow-encoded range end date (e.g. "20121001" is easy)
    # For the switch example below we will assume end dates

    return $range_id; # in "20121001" format 
}

switch (range_for_date($today)) {
    case "20121001" { do B; }
    case "20120110" { do A; }
}
于 2012-08-15T09:20:25.760 回答
0

这是另一种可能更简单的方法。它只是将日期转换为 YYYYMMDD 格式，从而可以对它们进行数字排序/比较。

sub sortable_date
{
    my %months;
    @months{
        'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'
    } = ('01'..'12');

    if (shift() =~ /^(\d{1,2})-(\w{3})-(\d{4})/ and exists $months{$2})
    {
        return "$3$months{$2}$1";   
    }
    else { die "invalid date format!"; }
}

switch (sortable_date($today))
{ 
    case sortable_date("14-Aug-2012")                  { do A }
    case ($_[0] >= sortable_date("15-Aug-2012") and
          $_[0] <= sortable_date("01-Oct-2012"))       { do B }
}

不过，如果您要对一般日期做很多事情，我会推荐 mpe 的方法。

于 2012-08-15T11:43:30.297 回答
0

使用 UNIX 时间戳而不是日期字符串。时间戳是整数，可以很容易地分类为日期范围（并使用 重新格式化localtime()）。

例如，使用Time::Local及其timelocal()函数将您的字符串转换为时间戳：

use Time::Local;
my %months = ( # necessary because timelocal() expects month numbers, not strings
  'Jan' => 0,
  'Feb' => 1,
  'Mar' => 2,
  'Apr' => 3,
  'May' => 4,
  'Jun' => 5,
  'Jul' => 6,
  'Aug' => 7,
  'Sep' => 8,
  'Oct' => 9,
  'Nov' => 10,
  'Dec' => 11
);
my $today = '15-Aug-2012';
my @t = $today =~ /(\d{4})-(\w{3})-(\d{4})/;
$t[1] = $months{$t[1]};  # turn string into integer
my $timestamp = timelocal(0, 0, 0, @t[0, 1, 2]); # sec, min, hr, day, month, year
于 2012-08-15T09:14:05.160 回答