perl クッキー 日時

Quick Edit Pencil

 

$expires = makeexpiresdate(1);


sub makeexpiresdate
{
local $delta;
local ($gmt, @t, @m, @w);

$delta = $_[0];

@t = gmtime(time() + $delta*60*60*24);
@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
$w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);

return $gmt;
}

このブログの人気の投稿

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

書字方向 横書方向変換スクリプト 左書きから右書きへ(コピペ用途)

PowerShellで複数ファイルのプロパティを取得する方法(準備編)

ヤバい!JAPANNEXT WQHD対応 27型ワイド液晶ディスプレイ「JN-IPS2716WQHD」を注文してみた!!!

簡単 YouTube動画をダウンロード、音声のみ保存する方法 2019

PowerShell: 詳細情報から取得した日付のフォーマット

AppleScript 改行 コード 置換