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 :

Galere avec utilisation de hash


Sujet :

Programmation et administration système Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Mai 2006
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 33
    Par défaut Galere avec utilisation de hash
    Bonjour a tous ,

    J'aimerais sollicitter votre aide pour recuperer des informations dans un fichier

    Je recois des fichiers par jour contenant les informations suivante :

    lundi 20 15:30
    24765+33
    7352.373
    7758638.237
    lundi 20 15:45
    218388
    565345
    7845450.2
    lundi 20 16:00
    153783
    18738.2
    268673
    lundi 20 16:15
    547828
    15337939
    12933947
    lundi 20 16:30
    17888.2723
    445345.678

    ou

    mardi 20 15:30
    7352.373
    7758638.237
    mardi 20 15:45
    218388
    7845450.2
    mardi 20 16:00
    153783
    268673
    mardi 20 16:15
    547828
    12933947
    mardi 20 16:30
    445345.678

    je voudrais pouvoir recuperer ces informations et les retranscrire sous cette forme

    lundi 20 15:30,24765+33,7352.373,7758638.237
    lundi 20 15:45,218388,565345,7845450.2
    lundi 20 16:00,153783,18738.2,268673
    lundi 20 16:15,547828,15337939,12933947
    lundi 20 16:30,17888.2723,445345.678

    En utilisant le language perl, j'ai commence ainsi utilisant une table de hash.
    Mais lorsque je veux recuperer les chiffres je bloque.


    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    #!/usr/bin/perl 
    # 
    use strict; 
    use warnings; 
     
     
    my ($mot,$chif); 
    my %mots = (); 
    my %chif = (); 
    $i=0; 
    open F1,"$tt/x.txt" or die "E/S: $!n"; 
    while (<F1>){ 
    	# Maintenant on a la ligne courante dans $_ (variable magique) 
        	# On enleve le retour chariot de fin de ligne 
            chomp; 
    	# Si la ligne ($_) commence par tout sauf un 'mot' plusieurs fois (stockage dans $1) 
        	# puis suivit de n'importe quoi (.*) 
    	 if ($_=~/^(D+.*)/){ 
    		$var=''; 
        		$mot=$1; 
        		chomp($mot); 
        		$mots{$i}=$mot; 
    		$i++; 
    		} 
    	if ($_=~ /^(d+.*)/) { 
     
    		ICI JE BLOQUE 
      		} 
    } 
    foreach (sort %mot){ 
      #if (defined($mot{$_})){ 
        print  $mot{$_}."."n"; 
      #} 
    } 
     
    close(F1);

  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 : 59
    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
    Par défaut
    Je ne vois pas l'intérêt de l'usage d'une table de hashage.
    J'aurais plutôt vu quelque chose dans le genre :

    déclarer un tableau pour les nouvelles lignes
    boucle sur toutes les lignes
    si la ligne commence par une lettre
    si le tableau des nouvelles lignes contient des infos
    afficher ce tableau sur une ligne
    vider le tableau
    ajouter la ligne courante au tableau

    si le tableau des nouvelles lignes contient des infos
    afficher ce tableau sur une ligne

    Ce qui peut s'écrire :
    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
    20
    21
    22
    23
    24
    #!/usr/bin/perl 
    # 
    use strict; 
    use warnings; 
     
    open F1,"$tt/x.txt" or die "E/S: $!n"; 
    my @table = ();
    while (<F1>){ 
      # Maintenant on a la ligne courante dans $_ (variable magique) 
      # On enleve le retour chariot de fin de ligne 
      chomp; 
      # Si la ligne ($_) commence par tout sauf un chiffre 
      if (/^\D/) {
        # Si le tableau n'est pas vide, l'afficher et le vider
        print join ",", @table if @table;
        @table = ();
      }
      # Ajouter la ligne courante au tableau
      push @table, $_;
    } 
    # Si le tableau n'est pas vide, l'afficher et le vider
    print join ",", @table if @table;
     
    close(F1);
    Je n'ai pas testé ce code. Il est possible que la condition de regroupement doive être adapté à ton besoin.

  3. #3
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Je me suis permis une petite modification
    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    #!/usr/bin/perl
    use warnings;
    use strict;
     
    my @semaine = qw / lundi mardi mercredi jeudi vendredi samedi dimanche /;
    my $regex = join( '|', @semaine );
     
    my @table = ();
    open F1,"$tt/x.txt" or die "E/S: $!n";
    while (<F1>) {
     
      # Maintenant on a la ligne courante dans $_ (variable magique)
      # On enleve le retour chariot de fin de ligne
      chomp;
     
      # Si la ligne ($_) commence par le jour d'une semaine
      if (/^$regex/i) {
     
        # Si le tableau n'est pas vide, l'afficher et le vider
        print join( ",", @table ), "\n" if @table;
        @table = ();
      }
     
      # Ajouter la ligne courante au tableau
      push @table, $_;
    }
     
    # Si le tableau n'est pas vide, l'afficher et le vider
    print join ",", @table if @table;
     
    close(F1);
    lundi 20 15:30,24765+33,7352.373,7758638.237
    lundi 20 15:45,218388,565345,7845450.2
    lundi 20 16:00,153783,18738.2,268673
    lundi 20 16:15,547828,15337939,12933947
    lundi 20 16:30,17888.2723,445345.678

  4. #4
    Membre averti
    Inscrit en
    Mai 2006
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 33
    Par défaut
    Merci pour votre reponse qui a ete tres rapide.
    Je ne peux pas tester la solution propose de suite mais je reviens dessus des que possible.

Discussions similaires

  1. Réponses: 1
    Dernier message: 26/08/2011, 13h56
  2. Pb avec utilisation UPDATEsous VBA
    Par frevale dans le forum Access
    Réponses: 7
    Dernier message: 07/11/2005, 23h56
  3. galere avec le port serie...
    Par toto4650 dans le forum MFC
    Réponses: 6
    Dernier message: 09/09/2005, 16h33
  4. TForm dans une DLL avec utilisation d'Interface
    Par guedelmalin dans le forum Langage
    Réponses: 13
    Dernier message: 17/06/2005, 11h58
  5. prob avec utilisation de package
    Par martijan dans le forum Modules
    Réponses: 13
    Dernier message: 11/07/2003, 09h37

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