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

发布于 2024-11-01 16:50:55 字数 206 浏览 0 评论 0原文

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

简而言之,我的问题是如何将下面的 vbs 语句翻译为 perlish 语句

<代码> 日期来源 = DateSerial( 2011, 01, 01) + TimeSerial(6, 0, 0) !

提前致谢

I have a dcom function need to be fed with date type. I'd like to call it in my perl script, but I have no idea to create date type in perl.

In short, my question is how translate below vbs statement into perlish one


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

Thanks in advance!

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(2

明媚如初 2024-11-08 16:50:55

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

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

There is a wrapper lib for windows. Win32::OLE

example http://www.perlmonks.org/?node_id=516137

宁愿没拥抱 2024-11-08 16:50:55

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

use POSIX;

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

You can use strftime method in POSIX module.

use POSIX;

$data_from = POSIX::strftime("%m/%d/%Y %I:%M:%S %p", $sec, $min, $hour, $mday, $mon, $year-1900);
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文