FAQ PerlConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
#!/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";

1
2
3
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

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
33
#!/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 %ladate = ( 
    "date"         => "$jour-$mois-$annee", 
    "heure"        => "$heure:$minute:$seconde", 
    "jour_semaine" => $jour_semaine, 
    "jour_annee"   => $jour_annee, 
    "hiverOuEte"   => $heure_hiver_ou_ete, 
  ); 
  return \%ladate; 
}

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

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

mar. mai  12:23:42 2014

1
2
3
4
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;

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

1
2
3
4
5
6
7
#!/usr/bin/perl 
use strict; 
use warnings; 
use POSIX qw(strftime); 
  
my $date = strftime "%H:%M:%S %d/%m/%Y", localtime; 
print $date;

1
2
3
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);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/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";

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/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";

1
2
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

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/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); 
  } 
}

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
#!/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"; 
}