Как создать тип даты VBS в Perl?

Question

У меня функция dcom должна быть указана с типом даты.Я хотел бы назвать это в моем скрипте Perl, но я не знаю, чтобы создать тип даты в Perl.

Короче, мой вопрос в том, как перевести приведенное ниже утверждение vbs в perlish one

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

Заранее спасибо!

Answer 1

Вы можете использовать метод strftime в модуле POSIX.

use POSIX;

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

Answer 2

Существует библиотека обертки для Windows. Win32 :: OLE

пример http://www.perlmonks.org/?node_id=516137