Perl 中的 maketime 函数：创建 UNIX 时间戳212

Perl 中的 maketime 函数可用于创建 UNIX 时间戳，它表示从 1970 年 1 月 1 日午夜（格林威治标准时间）以来的秒数。

maketime 函数的语法如下：```
maketime( hour, min, sec, month, day, year )
```

其中，参数分别表示：* hour：小时（0-23）
* min：分钟（0-59）
* sec：秒（0-59）
* month：月份（1-12）
* day：日期（1-31）
* year：年号（4 位数字）

例如，要创建表示 2023 年 3 月 8 日下午 3:45:12 的 UNIX 时间戳，可以使用以下代码：```
my $timestamp = maketime( 15, 45, 12, 3, 8, 2023 );
```

这将返回一个数字，表示从 1970 年 1 月 1 日午夜到指定日期和时间的秒数。在这种情况下，结果将是 1678284312。

使用本地时间创建时间戳

在某些情况下，您可能希望使用本地时间而不是格林威治标准时间创建时间戳。要做到这一点，可以使用 localtime 函数。

localtime 函数接受一个 UNIX 时间戳并返回一个数组，其中包含与该时间戳对应的本地时间信息。数组中的元素如下：```
[ sec, min, hour, mday, mon, year, wday, yday, isdst ]
```

其中，* sec：秒
* min：分钟
* hour：小时
* mday：日期
* mon：月份（从 0 开始）
* year：年号（从 1900 年开始）
* wday：星期（从 0 开始的星期天）
* yday：一年中的第几天
* isdst：是否为夏令时（0 否，1 是）

要使用 localtime 函数创建时间戳，可以使用以下步骤：1. 使用 time 函数获取当前时间，它将返回自 1970 年 1 月 1 日午夜以来的秒数。
2. 使用 localtime 函数将时间转换为本地时间数组。
3. 使用 maketime 函数将本地时间数组转换为 UNIX 时间戳。

例如，以下代码将创建表示当前本地时间的 UNIX 时间戳：```
my $timestamp = maketime( localtime( time() ) );
```

格式化时间戳

创建 UNIX 时间戳后，您可能需要将其格式化为人类可读的字符串。要做到这一点，可以使用 strftime 函数。

strftime 函数接受一个格式化字符串和一个时间戳，并返回一个格式化的日期和时间字符串。格式化字符串可以包含以下占位符：| 占位符 | 描述 |
|---|---|
| %a | 星期几缩写（例如，Sun） |
| %A | 星期几全称（例如，Sunday） |
| %b | 月份缩写（例如，Jan） |
| %B | 月份全称（例如，January） |
| %c | 日期和时间（例如，Fri Jan 8 15:45:12 2023） |
| %d | 日期（01-31） |
| %e | 日期（1-31，带前导空格） |
| %H | 小时（00-23） |
| %I | 小时（01-12） |
| %j | 一年中的第几天（001-366） |
| %m | 月份（01-12） |
| %M | 分钟（00-59） |
| %p | 上午或下午指示符（AM 或 PM） |
| %S | 秒（00-59） |
| %U | 一年中的第几周（00-53） |
| %w | 星期几（0-6，其中 0 表示星期天） |
| %x | 日期（例如，08/03/23） |
| %X | 时间（例如，03:45:12） |
| %y | 年号（00-99） |
| %Y | 年号（以 4 位数字表示） |
| %Z | 时区（例如，PST） |