Nautilusの日記： time2tai64n.pl
日記 by
Nautilus
tinydnsで時限設定をしようと思ったけど、任意の日付時刻をtai64nフォーマットに変換してくれるツールってないの？
と愚痴ってもしょうがないので簡単にスクリプトを組んでみた。
=============================================================
#!/usr/bin/perl
use Date::Parse;
$date_str = <>;
$time = str2time($date_str);
$hextime = sprintf("%lx",$time + 10);
$tai64n = sprintf("\@4%014s00000000",$hextime);
print "$tai64n\n";
=============================================================
何だ、実質たった6行じゃないか(￣∇￣;
と愚痴ってもしょうがないので簡単にスクリプトを組んでみた。
=============================================================
#!/usr/bin/perl
use Date::Parse;
$date_str = <>;
$time = str2time($date_str);
$hextime = sprintf("%lx",$time + 10);
$tai64n = sprintf("\@4%014s00000000",$hextime);
print "$tai64n\n";
=============================================================
何だ、実質たった6行じゃないか(￣∇￣;
time2tai64n.pl More ログイン