Discussion :

[Earl7]

Bonjour, j'ai des epochs à convertir en dates "normales", je me suis aidé de ce site, seul problème, j'obtiens ceci par exemple : "1/01/2008" alors que je voudrais "01/01/2008" ...

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
24
25
26
27
28
29
30
31
32
 
$requete = "SELECT epoch, id FROM enregistrement;";
$sth = $dbh->prepare ($requete);
 
$sth->execute();
 
while(my @row = $sth->fetchrow_array)
 
{
 
my $time = $row['0'];
my $id = $row['1'];
my @months = ("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12");
my ($sec, $min, $hour, $day, $month, $year) = (localtime($time)) [0,1,2,3,4,5,6];
 
$toto = "".$day."/".$months[$month]."/".($year+1900);
 
        if ($rows == 0)
	{
            my $req = "UPDATE enregistrement SET quand = '$toto' WHERE id = '$id'";
            my $sth = $dbh->prepare($req) or die "erreur de préparation\n";
            $sth->execute() or die "erreur d'exécution\n";
	    $sth->finish;
        }
    else
    {
        print "Enregistrement impossible\n";
    }
}
 
$sth->finish;
$dbh->disconnect;

[Jasmine80]

Il y a la fonction sprintf afin de formater des variables
http://perldoc.perl.org/functions/sprintf.html

voici le lien de la FAQ où on parle des dates
http://perl.developpez.com/faq/?page=sectionD3


$day est-il compris entre 1 et 7 où entre 1 et 31?

[CKLN00]

ou bien tu peut toujours utiliser strftime du module POSIX

moi je l'ai utiliser pour formater un localtime() :

Code :

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

my $date = strftime("%d%H%M%S", localtime());

[Earl7]

Problème réglé au niveau du Perl, merci bien :p