Perl obtenir l'heure UTC et obtenir la différence entre l'UTC horodateurs

Je suis à la recherche pour certains Perl de l'aide sur comment faire cela correctement. Je n'ai pas l'esprit à l'aide d'une bibliothèque pour ce faire.

Je suis en tirant un UTC horodatage à partir d'une base de données mySQL, dans ce format: 2012-02-06 13:50:09

J'ai besoin de Perl à tirer de l'heure UTC actuelle et obtenir la différence entre les deux temps de timbres en quelques minutes (ou secondes). J'ai fait ça dans un sous-processus Unix, mais je vais avoir de la difficulté à obtenir l'heure UTC et le comparant, depuis la zone locale est en cours d'exécution sur l'heure de l'est. Je ne me dérangerait pas de le faire dans le temps Unix, mais ne savez pas comment obtenir avec précision l'heure UTC de la comparer à la "last_timestamp" qui est UTC timestamp à partir de mysql.

my $date_diff = qx(date -d "$(date +'%F %T')" +%s) -
qx(date -d            "$last_timestamp" +%s);

Comme toujours, votre aide est grandement apprécié et valorisé.

OriginalL'auteur user1130364 | 2012-02-06

  1. 14

    1. Paradigme de l'erreur. Unix boîtes de ne pas "courir sur l'heure de l'est" ou "exécuter sur l'heure du Pacifique". Unix boîtes à exécuter sur les "secondes depuis epoch", et un fuseau horaire par défaut qui est utilisé pour représenter les valeurs de temps pour les utilisateurs. Une fois que vous comprenez cela, beaucoup d'autres choses utiles gratuitement.

    2. Vous pouvez faire 'date' retour de l'heure UTC de l'utilisation de 'date -u'

    3. Perl construit en fonction des retours de secondes depuis l'epoch (il n'y a pas de temps horaire). Vous pouvez ensuite convertir ce à l'UTC Y-M-D-H-M-S des valeurs à l'aide de Perl gmtime fonction intégrée. L'appel de gmtime avec toute arguments est effectivement la même que gmtime(time).

    4. Utilisation DateTime::Format::MySQL pour analyser MySQL valeurs de date/heure. Vous pouvez également trouver DateTime utile. Aussi, voir http://datetime.perl.org/

    +10 pour (1). 🙂
    Vous n'avez pas à appeler gmtime(time), gmtime() sera essentiellement appel time() pour vous. ( Ajouté à la réponse )

    OriginalL'auteur zgpmax

  2. 2

    Une façon est d'utiliser la base Heure: À La Pièce

    #!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
my $when = q(2012-02-06 13:50:09);
my $t = Time::Piece->strptime( $when, "%Y-%m-%d %H:%M:%S" );
print "delta seconds = ", time() - $t->strftime("%s"),"\n";

    OriginalL'auteur JRFerguson

  3. 1

    Voici une solution à l'aide de DateTime

    use strict;
use warnings;
use DateTime;

my $date_str="2012-02-06 13:50:09";

my ($year,$month,$day,$hour,$min,$sec);

if($date_str=~/^(\d{4})\-(\d{2})\-(\d{2}) (\d{2}):(\d{2}):(\d{2})$/)
{
  $year=$1;
  $month=$2;
  $day=$3;
  $hour=$4;
  $min=$5;
  $sec=$6;
}
else
{
  die "Couldn't parse timestamp $date_str\n";
}

my $dt=DateTime->new(
  year=>$year,
  month=>$month,
  day=>$day,
  hour=>$hour,
  minute=>$min,
  second=>$sec,
  time_zone=>"UTC"
);

my $now=DateTime->now;
$now->set_time_zone("UTC");

my $difference=$now->delta_ms($dt);

print "The difference is " . (60*($difference->minutes) + ($difference->seconds)) . " seconds\n";

    La sortie est:

    The difference is 2078 seconds

    qui sons sur la droite.

    Si vous voulez analyser un timestamp MySQL, utilisez la méthode DateTime::Format::MySQL

    OriginalL'auteur

  4. 0
    1. Appel
    2. Chercher UNIX_TIMESTAMP(your_datetime_field) à partir de MySQL
    3. Soustraire.
    4. Div et mod 60.
    5. sprintf ("%02d min %02d s", $delta_min, $delta_s);

    OriginalL'auteur Dmitry Ovsyanko