turugina #7514(2008/08/31 20:50 GMT) [ Perl ] Rating-1/1=-1.00
DateTimeと関連モジュールを使って。 入力はコマンドライン引数で、ISO8601形式の日付と秒数を指定します。 日付を省略すると実行時の時刻を使います。 # 入力はISO8601形式じゃなくてもparseしてくれます。ので、お題の条件3.が微妙な感じ
see: DateTime::Format::DateParse
1 2 3 4 5 6 7 8 9
use strict; use warnings; use DateTime; use DateTime::Format::DateParse; my $d = @ARGV==2 ? DateTime::Format::DateParse->parse_datetime(shift) : DateTime->now(time_zone => q{Asia/Tokyo}); print $d->add(seconds => shift||0)->iso8601,$/;
Rating-1/1=-1.00-0+
1 reply [ reply ]
turugina
#7514()
[
Perl
]
Rating-1/1=-1.00
see: DateTime::Format::DateParse
Rating-1/1=-1.00-0+
1 reply [ reply ]