Substract Perlを使用している時間から15分

Question

これは非常にシンプルになると思っていましたが、今は本当にオプションがありません。私は与えられた時間から15分を減算したい。

例 私の時間は、私は14時49分であることを15分を減算する必要15時04分です。私はインターネット上でソリューションを探しましたが、私を助けることができるperlモジュールはありません。

Answer 1

ようなもので素敵な文字列に変換し、それから* 60 15を引く $unixtime = time();をあなたは DateTimeを使用することができます

：

my $dt = DateTime->new(
    year => 1, 
    month => 1, 
    day => 1, 
    hour => 15, 
    minute => 4, 
); 

$dt->subtract(minutes => 15); 
printf "%d:%d\n", $dt->hour, $dt->minute; # prints 14:49 

Answer 2

たとえば、UNIX時間に現在の時間の時間を変換Date::Calc

use Date::Calc qw(Add_Delta_DHMS); 

($year2, $month2, $day2, $h2, $m2, $s2) = 
Add_Delta_DHMS($year, $month, $day, $hour, $minute, $second, $days_offset, $hour_offset, $minute_offset, $second_offset); 

($y,$m,$d,$H,$M,$S) = Add_Delta_DHMS(Today_and_Now(), 0, 0, -15, 0); 

Answer 3

を使用してみてください。そして、

sub display_time { 
    my ($sec,$min,$hour,$mday,$mon,$year,undef,undef,undef) = localtime(time); 
    $year += 1900; 
    $mon += 1; 
    return "$year.".sprintf("%02d.%02d %02d:%02d:%02d",$mon,$mday,$hour,$min,$sec); 
} 

Answer 4

perl -MClass::Date -e 'my $d=Class::Date->new("2011-07-13 15:04:00"); my $d2 = $d-"15m"; print $d2, "\n";' 

出力：

2011-07-13 14時49分00秒

Answer 5

まあそれはすべてのあなたの時間が保存されている方法によって異なります。私は内蔵のtimeで返されるtime_tを使用することを好む。

my $now = time(); 
my $before1 = $now - (15*60);  # 15 minutes ago 
my $before2 = $now - (3*60*60); # 3 hours ago 
my $before3 = $now - (2*24*60*60); # 2 days ago 

出力のために、私はPOSIXモジュールを使用

は

print POSIX::strftime('%Y-%m-%d %T', localtime($before1)); 

Answer 6

あなただけの時間を懸念している場合は、以下のサブ・ルーチンを使用することができますない日付：

sub subTime{ 
    my ($time) = @_; 
    my @splittime = split(':', $time); 
    my $hour = $splittime[0]; 
    my $min = $splittime[1]; 
    if($min < 15){ 
     $min=($min+60)-15; 
     $hour-=1; 
    } 
    else{ 
     $min = $min-15; 
    } 
    return "$hour:$min"; 
} 

---

Disclamer：これはOPが使用された解決策でしたが、彼は上記回答のコメント（@ eugeneの回答）に言及しました。