perl - Perl 在数组中查找最近的日期

Question

如何使用输入日期从数组中获取早于输入日期或等于的最近日期？

例如，我的数组看起来像这样。

@dates = ("200811","200905","200912","201005","201202");

我的输入日期是

$inputdate = "201003";

如何获得数组中最接近的日期“200912”。

日期格式为 YEARMM。

谢谢

Answer 1

对日期进行排序，仅选择输入日期之前的日期，取最后一个：

print ((grep $_ <= $inputdate, sort @dates)[-1]);

Answer 2

use List::Util qw( max );
my $date = max grep { $_ <= $inputdate } @dates;

Answer 3

这里的逻辑是返回一年，如果月份是一月，则将月份从一月更改为十二月，否则在同一年返回一个月。

我在 Perl 中的代码不多，PHP 中的代码是：（我把它放在这里是为了给你逻辑。编码它应该是微不足道的）

$dates = array("200811","200905","200912","201005","201202");
$inputdate = "201003";
$date = $inputdate;
while ($found==0) {
    if (in_array($date, $dates)) {
        $found = 1;
        echo "the date is " . $date;
    }
    if ($date%100==1) { // if it's january, we need to change to december of the previous year
        $date = $date - 100 + 12;
    }
    else  {
        $date = $date - 1; //go one month back in the same year
    }
}