Dev Faq
8
votes

Soustraire 15 minutes de temps en utilisant perl

Je pensais que cela allait être très simple mais je suis vraiment à l'écart des options maintenant. Je veux aboutir à 15 minutes à partir d'un moment donné.

exemple Mon temps est 15h04 Je veux aboutir à 15 minutes à 14h49. J'ai recherché des solutions sur Internet, mais il n'y a pas de module Perl qui peut m'aider.

0 commentaires

6 Réponses :

1
votes

Essayez d'utiliser Date :: Calc A > 

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);

0 commentaires
1
votes

Convertissez l'heure à unix Time, par exemple l'heure actuelle: $ Unixtime = heure (); puis soustraire 15 * 60 à partir de celui-ci, puis convertir en une belle chaîne avec quelque chose comme xxx

0 commentaires
22
votes

Vous pouvez utiliser DateTime : xxx

3 commentaires

Et s'il est juste préoccupé par le temps et non des dates, il peut essayer TIME :: HORLOGE

Je pense que ce qui précède aura résolu mon problème, ceux ci-dessous n'utiliseront pas le format que je veux, mais cela m'a aidé à apprendre beaucoup. J'ai pu répondre à la solution suivante sous-time {My ($ TIME) = @_; mon @splittime = Split (':', $ TIME); ma $ heure = $ splittime [0]; mon $ min = $ splittime [1]; Si ($ min <15) {$ min = ($ min + 60) -15; $ heure- = 1; } else {$ min = min-15; } Retour "Heure $: $ min"; } J'appelle cette fonction et son retour renvoyé le temps soustrait. Merci

Et voir Stackoverflow.com/Questtions/7486470/... pour chaîne -> DateTime .

2
votes 
perl -MClass::Date -e 'my $d=Class::Date->new("2011-07-13 15:04:00"); my $d2 = $d-"15m"; print $d2, "\n";'
Output:2011-07-13 14:49:00
0 commentaires
7
votes

Eh bien, tout dépend de la façon dont votre temps est stocké. Je préfère utiliser un time_t code> comme retourné par l'heure code> intégré. xxx pré>

pour la sortie J'utilise le posix Code> Module P> 

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

0 commentaires
0
votes

Vous pouvez utiliser la sous-routine ci-dessous si vous n'êtes préoccupant que du temps non préoccupé par la date: xxx

Disclamer: ceci était la solution OP utilisée , il l'a mentionné dans des commentaires dans la réponse ci-dessus (dans la réponse de @ Eugene).

0 commentaires

Articles qui pourrait vous intéresser :

Comment convertir une chaîne en objet DateTime avec le nom du mois, la date et l'année?
Perl convertissant la date de formatage en ymd H: M
Est-il sûr de comparer la date d'expiration de l'abonnement et la date actuelle du côté client? Ou cela peut-il être manipulé?
DateTime en UTC ne convertissant pas en Local