perl - 如何在 perl 中创建日期类型的 vbs？

Question

我有一个 dcom 函数需要输入日期类型。我想在我的 perl 脚本中调用它，但我不知道在 perl 中创建日期类型。

简而言之，我的问题是如何将下面的 vbs 语句翻译成 perlish 一个

date_from = DateSerial( 2011, 01, 01) + TimeSerial(6, 0, 0)

提前致谢！

Answer 1

有一个用于 windows 的包装器库。Win32::OLE

例如http://www.perlmonks.org/?node_id=516137

Answer 2

您可以在 POSIX 模块中使用 strftime 方法。

use POSIX;

$data_from = POSIX::strftime("%m/%d/%Y %I:%M:%S %p", $sec, $min, $hour, $mday, $mon, $year-1900);