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