Time::gmtime - Perl 内置 gmtime() 函数的按名称接口
use Time::gmtime;
$gm = gmtime();
printf "The day in Greenwich is %s\n",
(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $gm->wday() ];
use Time::gmtime qw(:FIELDS);
gmtime();
printf "The day in Greenwich is %s\n",
(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $tm_wday ];
$now = gmctime();
use Time::gmtime;
use File::stat;
$date_string = gmctime(stat($file)->mtime);
此模块的默认导出覆盖了核心 gmtime() 函数,用返回“Time::tm”对象的版本替换了它。此对象具有从 C 的 tm 结构中返回同名结构字段名称的方法;即 sec、min、hour、mday、mon、year、wday、yday 和 isdst。
您还可以使用 :FIELDS 导入标记将所有结构字段直接导入到您的命名空间中作为常规变量。(请注意,这仍然会覆盖您的核心函数。)使用其方法名称前带有 tm_
的变量名访问这些字段。因此,如果您导入字段,则 $tm_obj->mday()
对应于 $tm_mday。
gmctime() 函数提供了一种获取原始 CORE::gmtime() 函数标量意义的方法。
要访问此功能而无需核心覆盖,请将 use
传递给一个空导入列表,然后使用其完全限定名称访问函数函数。另一方面,内置函数仍然可以通过 CORE::
伪包使用。
虽然此类目前使用 Class::Struct 模块来构建类似结构的类,但你不应该依赖于此。
Tom Christiansen