IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Programmation et administration système Perl Discussion :

Fichier de Log : File_YYMMDD_HHMM.log


Sujet :

Programmation et administration système Perl

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    299
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 299
    Points : 137
    Points
    137
    Par défaut Fichier de Log : File_YYMMDD_HHMM.log
    Bonjour,

    J'essaie de faire un fichier Log du style Fichier_Log_YYMMDD_HHMM.log quand je démarre mon script.
    J'ai donc commancé par ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    #!/usr/bin/perl
    use warnings;
    use strict;
    use POSIX;
     
    (my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) =localtime(time); 
    $year += 1900; 
    $year = sprintf("%02d", $year % 100);
     
    $mon = $mon + 1 ;
    if ( $mon < 10 ) {
    	$mon = sprintf("%02d", $mon % 100);
    }
     
    if ( $mday < 10 ) {
    	$mday = sprintf("%02d", $mday % 100);
    }
     
    print "Fichier_Log\_$year$mon$mday\_$hour$min.log\n"
    Pensez vous que ceci va fonctionner dans tous les cas ? ou y a t-il une manière plus facile?

    Merci

  2. #2
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Points : 5 753
    Points
    5 753
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    use POSIX qw(strftime);
     
    print strftime "Fichier_Log_%y%m%d_%H%M.log", localtime;
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Si c'est utile, say

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    299
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 299
    Points : 137
    Points
    137
    Par défaut
    Merci Philou,

    J'ai donc fais ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    #!/usr/bin/perl
    use warnings;
    use strict;
    use POSIX qw(strftime);
     
    my $log=print strftime "Fichier_Log_%y%m%d_%H%M.log", localtime;
     
    print "$log\n";
    J'ai le le résultat suivant :
    Fichier_Log_110329_1043.log1

    C'est quoi ce 1 après log ???

  4. #4
    Membre habitué
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    299
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 299
    Points : 137
    Points
    137
    Par défaut
    SI je transforme ma commande comme ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    my $log=strftime "Fichier_Log_%y%m%d_%H%M.log", localtime ;
    Le 1 disparait .....

    Encore merci

  5. #5
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Points : 5 753
    Points
    5 753
    Par défaut
    C'est tout à fait normal.
    Dans ta première écriture, tu fais un print de strftime ... et tu mets le résultat du print (1) dans $log, que tu affiches alors sur la ligne qui suit.

    Dans ta seconde écriture, tu as supprimé print, qui ne servait qu'à afficher le nom du fichier (sans l'affecter à $log).
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Si c'est utile, say

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 8
    Dernier message: 13/02/2013, 01h35
  2. Réponses: 10
    Dernier message: 03/08/2011, 17h15
  3. Réponses: 1
    Dernier message: 09/09/2010, 10h29
  4. Création fichier texte pour un log
    Par Tetzor dans le forum VBScript
    Réponses: 9
    Dernier message: 04/09/2008, 19h26
  5. fichier de jounalisation(redo logs)
    Par jamjam19 dans le forum Oracle
    Réponses: 1
    Dernier message: 06/09/2006, 01h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo