Date création : 11-11-2007 00:00:00
Date de la dernière modification : 24-03-2008 00:20:44
 Vous êtes dans : Langage Perl Astuces / Date et heureAffichage de la date avec le format YYYY-MM-DD HH:MI:SS
#!/usr/bin/perl
#
use warnings;use strict;
# en utilisant la fonction localtime
#
my ($sec, $min, $heure, $jour, $mois,$annee, undef, undef, undef) = localtime();
$mois += 1 and $annee += 1900;
$jour = sprintf("%02d",$jour);
$mois = sprintf("%02d",$mois);
my $d0 = "$annee-$mois-$jour $heure:$min:$sec";
print $d0,"\n";
# en utilisant la commande système date
# je stocke dans la variable $d1
# en utilisant `` (apostrophes enverses)
#
my $d1 = `date '+%Y-%m-%d %H:%M:%S'`;
print $d1,"\n";
__END__
|
|
