Discussion :

[sarnov]

Bonjour,

débutant en perl je souhaiterai collecter des données à partir d'uneBDD pour calculer à chaque fois la différence entre deux données qui se suivent.

Les données stockées dans la BDD sont de type time (ex : 13:50:03).

Je sais comment faire pour récupérer ces données à partir de ma BDD en perl. Mais j'arrive pas à trouver une fonction perl pour que je puisse faire des opérations (soustraction, addition) sur ces données d'une manière rapide (sans passée par un traitement à la chaîne près)

Merci d'avance si quelqu'un pourra m'aider.

[Schmorgluck]

Je crains qu'il soit impossible d'échapper à un traitement de la chaîne, le type SQL time étant ce qu'il est. Ceci dit, ce n'est pas compliqué.

Mettons que tu as récupéré ton heure dans une chaîne $time.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
my $seconds=0;
$seconds= $seconds*60+$_ foreach (split /:/, $time) ;

Tu obtiens ton heure en secondes, et tu peux faire tes soustractions, additions, comparaisons, ça marchera... tant que tes heures appartiennent à une même journée, s'entend.

[sarnov]

Merci Schmorgluck,

Au moins avec ça je pourrai avancer. Quoiqu'il reste toujours un problème lorsque la date change .

[Schmorgluck]

Ben, tu as probablement une colonne de type date dans ta base, non ? Du coup, une colonne de type DATETIME aurait peut-être été préférable, soit dit en passant, mais bon.

Dans ce cas-là, ça se complique un peu, mais pas tant que ça, et ça en vaut la chandelle. Renseigne-toi sur le module Time::Local, notemment la fonction timelocal, à utiliser conjointement avec la fonction localtime. Combinées à un usage judicieux de split, ça devrait faire ton bonheur.