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

**byrdo** · 27/05/2009, 13h23

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.

**djibril** · 27/05/2009, 13h33

DateTime::Event::Random

**byrdo** · 09/06/2009, 15h14

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.

**Philou67430** · 09/06/2009, 15h57

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 :

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

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 :

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

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

**byrdo** · 09/06/2009, 17h26

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

Code :

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

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