Des codes sources perlConsultez toutes les FAQ

#!/usr/bin/perl
use strict;
use warnings;
my $le_time = time;
print "Depuis le 1/1/1970, il y a eu $le_time secondes.\n";
my $le_localtime = localtime;
print "La date locale : $le_localtime\n";
my $le_gmtime = gmtime;
print "La date universelle : $le_gmtime\n";

Depuis le 1/1/1970, il y a eu 1185539208 secondes.
La date locale : Fri Jul 27 14:26:48 2007
La date universelle : Fri Jul 27 12:26:48 2007

#!/usr/bin/perl
use strict;
use warnings;

my $RefDateActuelle = date(); # On recupere la réference d'un hash
my $time = 1234567890;
my $RefAutreDate    = date($time); # On recupere la réference d'un hash


print "Date actuelle : $RefDateActuelle->{date} $RefDateActuelle->{heure}\n"; 
print "Date correspondant au time $time : $RefAutreDate>{date} $RefAutreDate>{heure}\n"; 

sub date {
  my $time = shift || time;    #$time par defaut vaut le time actuel
  my ( $seconde, $minute, $heure, $jour, $mois, $annee, $jour_semaine, $jour_annee, $heure_hiver_ou_ete )
    = localtime($time);
  $mois  += 1;
  $annee += 1900;

  # On rajoute 0 si le chiffre est compris entre 1 et 9
  foreach ( $seconde, $minute, $heure, $jour, $mois, $annee ) {
    s/^(\d)$/0$1/;
  }

  my %date = (
    "date"         => "$jour-$mois-$annee",
    "heure"        => "$heure:$minute:$seconde",
    "jour_semaine" => $jour_semaine,
    "jour_annee"   => $jour_annee,
    "hiverOuEte"   => $heure_hiver_ou_ete,
  );
  return \%date;
}

Date actuelle : 05-12-2008 11:02:57
Date correspondant au time 1234567890 : 14-02-2009 00:31:30

use POSIX qw(strftime);
my $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;

use POSIX qw(strftime);
my %jours = ("1er janvier 2009" => [ 0, 0, 0, 1, 0, 109 ],
             "31 décembre 2009" => [ 0, 0, 0, 31, 11, 109 ]);
print strftime "Le $_ est en semaine %V\n", @{$jours{$_}} foreach sort keys %jours;

Le 1er janvier 2009 est en semaine 01
Le 31 décembre 2009 est en semaine 53

my $min_date = mktime(0,0,0, 1, 0, 10); # 1 janvier 1910
my $max_date = mktime(0, 0, 0, 1, 0, 130); # 1 janvier 2030
my ($sec, $min, $hour, $day, $month, $year) = localtime(int(rand($max_date)-$min_date))+$min_date);

#!/usr/bin/perl
use strict;
use Carp;
use warnings;

use Time::Local;

my @Dates1 = split("/", "01/01/2000" );
my @Dates2 = split("/", "05/12/2008" );

# Reduisons le mois de 1
$Dates1[1] -= 1;
$Dates2[1] -= 1;

print "01/01/2000 : ", timelocal( 0,0,0, @Dates1 ),"\n";
print "05/12/2008 : ", timelocal( 0,0,0, @Dates2 ),"\n";

01/01/2000 : 946681200
15/12/2008 : 1229295600

#!/usr/bin/perl
use warnings;
use strict;
use Date::Calc qw(:all);

my $date1 = '28/05/2006';
my $date2 = '19/11/2009';
my ( $jour1, $mois1, $annee1 ) = split( '/', $date1 );
my ( $jour2, $mois2, $annee2 ) = split( '/', $date2 );

# Calcul le nombre de jour entre 2 dates
my $NombreJoursEntreDate = Delta_Days( ( $annee1, $mois1, $jour1 ), ( $annee2, $mois2, $jour2 ) );
print "Il y a $NombreJoursEntreDate jours entre $date1 et $date2\n";

# ou Nombre de semaines et jours
my $NbrSemaine     = int( $NombreJoursEntreDate / 7 );
my $NbrJourRestant = $NombreJoursEntreDate % 7;
print "Il y a $NbrSemaine semaine(s) et $NbrJourRestant jour(s) entre $date1 et $date2\n";

Il y a 1271 jours entre 28/05/2006 et 19/11/2009
Il y a 181 semaine(s) et 4 jour(s) entre 28/05/2006 et 19/11/2009

#!/usr/bin/perl
use strict;
use warnings;

use Date::Calc qw(:all);
my $usage = <<"FIN_USAGE";
  Usage: perl $0 date separateur (Ex : perl $0 12/05/2003 / )
      ou perl $0    
FIN_USAGE

my ($jour,$mois,$annee) = ();
if ( @ARGV == 0 ) {
  ($jour,$mois,$annee)= format_date();
} 
elsif ( @ARGV == 2 ) {
   my ($date, $separateur ) = @ARGV;
   chomp $date; 
   chomp $separateur;
  ($jour,$mois,$annee) = format_date($date,$separateur);
}
else {
  print "$usage\n";
  exit;
}

##############################
print "Date : $jour/$mois/$annee\n";
my ($aa,$mm,$jj,$aaa,$mmm,$jjj) = ();
($aa,$mm,$jj)= Add_Delta_Days($annee,$mois,$jour,6);
print "6 jours apres : $jj/$mm/$aa\n";

($aa,$mm,$jj)= Add_Delta_Days($annee,$mois,$jour,-48);
print "48 jours avant : $jj/$mm/$aa\n";
($aa,$mm,$jj)= Add_Delta_YM($annee,$mois,$jour,-2,-6);
print "2 ans et 6 mois avant : $jj/$mm/$aa\n";

($aaa,$mmm,$jjj)= Add_Delta_Days($annee,$mois,$jour,1);
print "jour d'apres : $jjj/$mmm/$aaa\n";

sub format_date {
  my ($date, $separateur) = @_;
  my ($jour,$mois,$annee) = ();
  if (defined $date) {
    ($jour,$mois,$annee) = split($separateur,$date);
    return ($jour,$mois,$annee);
  }
  else {
    ($jour,$mois,$annee) =(localtime)[3,4,5];
    $mois = $mois + 1;  
  $annee = $annee + 1900;    
    # On rajoute 0 si le chiffre est compris entre 1 et 9
    foreach  ($jour,$mois,$annee) {
      s/^(\d)$/0$1/;
    }
    return ($jour, $mois, $annee);
  }
}

#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes;

print ObtenirDateFormatDB2(),"\n";
# ------------------------------------------------
# ObtenirDateFormatDB2
# But : Retourne un temps au foramt DB2
# ex : 2009-10-25 16:35:53.123456
# ------------------------------------------------
sub ObtenirDateFormatDB2 {
  my ( $epochsecondes, $microsecondes ) = Time::HiRes::gettimeofday; 
  my ( $seconde, $minute, $heure, $jour, $mois, $annee ) = localtime($epochsecondes);

  $mois  += 1;
  $annee += 1900;

  # On rajoute 0 si le nombre est compris entre 1 et 9
  foreach  ( $seconde, $minute, $heure, $jour, $mois, $annee, $microsecondes ) {
    s{^(\d)$}{0$1};
  }

  return "$annee-$mois-$jour $heure:$minute:$seconde.$microsecondes";
}