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

Langage Perl Discussion :

parser un fichier TXT ressemblant au XML


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Décembre 2011
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2011
    Messages : 12
    Par défaut parser un fichier TXT ressemblant au XML
    Bonjour,
    je cherche à parser un fichier texte qui a la format ci-dessous.
    un collègue me vante Ruby avec lequel il a réussi à le faire en " oneline" .

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    File.readlines("/home/compte/objet_zone.don").reject{|l|}.map{|l|lf=l.strip;(lf.size> 0 && lf[0..1]!="--") ? lf : nil}.compact.inject([]){|ary,l|ary.last << l if (l=~/^[^=]+=>\s*debut/ && ary<<[])..(l=~/^[^=]+=>\s*fin/);ary}.map{|ary|ary[1..-2].map{|e|e.split('=>').map{|f|f.strip.gsub('"','')}}.to_h}
    le but est de transformer en hash tous les objets (tableau de hash dans sa façon de faire ) afin de les utiliser dans le reste du script.

    il m'apprend que l'intervalle qu'il utilise est issu de Perl mais je n'arrive pas à en faire la traduction...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    if (l=~/^[^=]+=>\s*debut/ && ary<<[])..(l=~/^[^=]+=>\s*fin/)
    pourriez-vous m'aider à lui démontrer que Perl est tout aussi efficace que son Ruby ? (même si ce n'est pas en "oneline")
    Merci d'avance

    exemple de fichier TXT
    objet => debut
    index => 1
    a => "premiere valeur"
    ...
    z => "dernier mot"
    objet => fin
    ...
    objet => debut
    index => 77
    a => "autre valeur"
    ...
    z => "aurai-je le dernier mot ?"
    objet => fin

  2. #2
    Membre averti
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Décembre 2011
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2011
    Messages : 12
    Par défaut
    pour mémo, si besoin futur
    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
    37
    use strict;
    use warnings;
    use Data::Dumper;
    my @AoH ;
    my $current_hash = {};
    while (<DATA>){
    	chomp $_;
    	if ( $_ =~ /objet => debut$/ .. /objet => fin$/){
    		if ( /objet => debut$/ ){
    			next;
    		}
    		elsif ( /objet => fin$/ ){
    			push @AoH, $current_hash;
    			$current_hash = {};
    		}
    		else{
    			my ($key,$value) = split /\s+=>\s+/,$_;
    			$current_hash->{ $key } = $value;
    		}
    	}
    	else{
    		print "unxpected content outside tags in line: [$_]\n";
    	}
    }
    print Dumper \@AoH;
    __DATA__
    objet => debut
    index => 1
    a => "premiere valeur"
    z => "dernier mot"
    objet => fin
    ALIEN LINE AFTER fin
    objet => debut
    index => 77
    a => "autre valeur"
    z => "aurai-je le dernier mot ?"
    objet => fin
    outputs:

    unxpected content outside tags in line: [ALIEN LINE AFTER fin]
    $VAR1 = [
              {
                'a' => '"premiere valeur"',
                'index' => '1',
                'z' => '"dernier mot"'
              },
              {
                'z' => '"aurai-je le dernier mot ?"',
                'a' => '"autre valeur"',
                'index' => '77'
              }
            ];

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

Discussions similaires

  1. Parser un fichier txt
    Par takepaf dans le forum VBA Access
    Réponses: 1
    Dernier message: 29/05/2007, 11h29
  2. extraire donné fichier txt afficher dans xml
    Par jasminrose dans le forum Format d'échange (XML, JSON...)
    Réponses: 1
    Dernier message: 01/04/2007, 12h14
  3. Générer un fichier ".TXT" à partir de XML/XSL
    Par moi95 dans le forum Windows
    Réponses: 2
    Dernier message: 02/02/2007, 15h31
  4. Parser un fichier TXT
    Par Blaireau dans le forum Langage
    Réponses: 5
    Dernier message: 08/08/2006, 20h28
  5. Réponses: 6
    Dernier message: 14/04/2006, 11h18

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