Perl格式函数说明

有人能给我解释一下这个密码吗

看来有人在重新实现POSIX:：strTime方面做得太糟糕了。特别是，它只是将原始字符串中的各种数字范围匹配并捕获到带编号的捕获缓冲区中。

看起来有人在重新实现POSIX:：strptime方面做得太差了。特别是，它只是将原始字符串中的各种数字范围匹配并捕获到带编号的捕获缓冲区中。

您不了解其中的哪一部分

if( $start =~ /^(\d+).(\d+).(\d+)\s+(\d+):(\d+):(\d+)$/) {
        my @t = ( $6, $5, $4, $1, $2-1, $3);
        $event->{start} = timelocal(@t);
    }

由此，我们可以计算出原始字符串可能包含格式为

DD-MM-YYYY HH:MM:SS

的时间戳，并将其转换为自1970-01-01 00:00以来的秒数

这可以通过使用来自的

strtime

实现

---

哪一部分你不明白

if( $start =~ /^(\d+).(\d+).(\d+)\s+(\d+):(\d+):(\d+)$/) {
        my @t = ( $6, $5, $4, $1, $2-1, $3);
        $event->{start} = timelocal(@t);
    }

由此，我们可以计算出原始字符串可能包含格式为

DD-MM-YYYY HH:MM:SS

的时间戳，并将其转换为自1970-01-01 00:00以来的秒数

这可以通过使用来自的

strtime

实现

---

看起来字符串$start是格式为“dd.mm.yy HH:mm:SS”的时间戳。然后将$event hashref（或object）的“start”键指定给该时间的历元时间戳。您在理解哪一部分时遇到问题？字符串$start似乎是格式为“dd.mm.yy HH:mm:SS”的时间戳。然后将$event hashref（或object）的“start”键指定给该时间的历元时间戳。您在理解哪一部分时遇到问题？

use Time::Piece;

$event->{start} = Time::Piece->strptime($str, '%d $m %Y %H:%M:%S')->epoch;