Perl：未定義のサブルーチン＆main :: gmdate？ここで

Question

が、私は（複雑な何も）を行いませんしようとしているものです：

use Digest::MD5 qw(md5 md5_hex md5_base64); 

$apikey = '1234'; 
$secret = '123'; 
$timestamp = gmdate('U'); 
$sig = md5($apikey . $secret . $timestamp); 

echo $sig 

ので、エラーは$タイムスタンプ= gmdate行で発生します。

私は間違っていますか？

Answer 1

私はあなたがgmdate機能ではなく、gmtime機能を探していると思います。あなたがそれに'U'を渡しているのを見ると、私は混乱します。

ああ、私は今、PHPはgmdate('U')をPerl 5と同じ方法で使用していますgmtime()を参照してください。

おっとは、私の記憶が失敗した、あなたはエポック秒にlocaltimeまたはgmtimeの結果をオンにするTime::LocalまたはPOSIX::mktimeを使用する必要があります。

#!/usr/bin/perl 

use strict; 
use warnings; 

use POSIX qw/mktime/; 
use Time::Local qw/timegm/; 

print "the time is now ", timegm(localtime()), " or ", mktime(gmtime()), "\n";