Se connecter avec
S'enregistrer | Connectez-vous

Convertir Date en temps unix

Dernière réponse : dans Programmation

Bonjour,

J'ai fais quelque recherche sur google et sur le forum(j'ai trouvé 1 topic mais pas tout compris dessus et ça marche pas chez moi),mais rien de concret. Donc je viens poster ici!

Je dois ecrire un script sous le nom "temps.pl + MM DD YYYY" sous PERL
donc je dois inseré des arguments, puis convertir cette date MMDDYYYY en temps unix!



  1. #!/usr/bin/perl -w                                                                                                                                           
    

  2. use strict;
    

  3. use Carp;
    

  4. use Time::Local;
    

  5.  
  6. my $day = '28';
    

  7. my $month = '05';
    

  8. my $year = '2008';
    

  9. &heure($day , $month, $year);
    

  10.  
  11.                                                                                                                                                                                                                                                                                                                      sub heure($$$){
    

  12.     my $day = $_[0];
    

  13.     my $month = $_[1];
    

  14.     my $year = $_[2];
    

  15.  
  16.     my $time = timelocal(0,0,0,$day,$month - 1,$year);
    

  17.     print ("la date est de : " ,$time, "! \n");
    

  18. }




mais ça marche pas, peut etre je suis partis sur une piste inexploitable pouvez-vous m'aidez SVP
MERCI

Autres pages sur : convertir date temps unix

Lassé par la pub ? Créez un compte

tu dois écrire un script en perl sans connaitre le perl :heink: 

ca fonctionne très bien (meme si je vois pas l'intéret de la fonction, ni de la ligne "use Carp" d'ailleurs), si c'est pas le cas, donne au moins l'erreur que ca te sort!
sinon pour prendre les arguments de la ligne de commande:
  1. my $day = shift;
    

  2. my $month = shift;
    

  3. my $year = shift;


"shift"?? ça veut dire quoi? je connais pas! et non en fin de compte je me suis pris la tete pour rien j'ai trouvé ça
:

  1. sub heure{
    

  2.     my $date = $_[0];
    

  3.     my($day, $month, $year) = $date =~/(\d{2})(\d{2})(\d{4})/; # pour decomposer la date en DD MM YYYY
    

  4.     my $time = timelocal(0,0,0,$day,$month - 1,$year);
    

  5.     print ("la date est de : " ,$time, "! \n");
    

  6. }


voila
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde