Module pour générer des dates aléatoirement

Version imprimable

27/05/2009, 13h23
byrdo

Module pour générer des dates aléatoirement

Un tel module existe-t'il?

Je dois générer en Perl des dates aléatoires, afin de les insérer dans des champs de type DATE, ou encore DATETIME dans une BDD SQL.

Et je crains qu'en voulant faire ça à l'ancienne, à coup de rand, et de if dans tous les sens, je n'essaie de réinventer la roue, alors qu'un module existe peut-être ...

J'ai cherché, mais je n'ai pas encore trouvé.

Merci pour les infos que vous pourrez m'apporter.;)
27/05/2009, 13h33
djibril

DateTime::Event::Random
09/06/2009, 15h14
byrdo

Bonjour,

D'abord, merci, j'avais vu la réponse l'autre jour, mais j'avais omis de te remercier.

J'ai également trouvé Data::Random, qui permet de générer tout un tas de types de données.

Par contre, il faudra finalement que je fasse ça, sans devoir installer un module spécifique ....

Comment puis-je faire?
Récupérer directement les codes sources des modules pour les mettre dans mon code ?

Merci.;)
09/06/2009, 15h57
Philou67430
L'usage de POSIX::mktime est aussi possible :
tu définis une date min et une date max (dans la limite du range d'un entier long) :
Code:

1 2 3 $min_date = mktime(0,0,0, 1, 0, 10); # 1 janvier 1910 $max_date = mktime(0, 0, 0, 1, 0, 130); # 1 janvier 2030
puis tu calcules un nombre aléatoire dans cette plage, que tu peux alors reconvertir en date (jour, mois, année)
Code:

1 2 ($sec, $min, $hour, $j, $m, $y) = localtime(int(rand($max_date)-$min_date))+$min_date);

Nikel, j'ai pu me donner une petite base de travail, qui me servira par la suite :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/local/bin/perl
 
use strict;
use POSIX;
 
 
 
        my $min_date = mktime(0, 0, 0, 1, 0, 10); # 1 janvier 1910
        print "MIN DATE : $min_date\n";
 
        my $max_date = mktime(0, 0, 0, 31, 11, 130); # 31 decembre 2030
        print "MAX DATE : $max_date\n";
 
 
        my $range = int(rand($max_date)-$min_date);
        print "Range : $range\n";
 
        my $random = $range+$min_date;
        print "Random : $random\n";
 
 
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($random);
        print scalar localtime($random);

Et ce sans devoir installer un quelconque module additionnel.

Merci à vous.:ccool:

byrdo

09/06/2009, 17h51
Philou67430

You're welcome :ccool:

Dans tout les cas, si tu as un doute qu'un module soit dans la Core list ou pas, tu disposes de la commande corelist pour le tester :

Citation:

$ corelist POSIX

POSIX was first released with perl 5