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 :

Chaine de caractères


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2009
    Messages : 9
    Par défaut Chaine de caractères
    Bonjour,

    Je traivaille sur Perl.

    Je cherche à extraire une chaine de caractère d'un txt.
    La forme de mon txt est comme suit:

    INFO : Close File........................
    Reception................
    .....
    FIN IMPORT...................

    INFO : Close File........................
    Type................
    .....
    FIN IMPORT...................
    De ce fichier, je veux créer deux autres txt. Un qui concerne les receptions et un autre les types.

    FICHIER TYPE:

    INFO : Close File........................
    Type ................
    .....
    FIN IMPORT...................

    INFO : Close File........................
    Type................
    .....
    FIN IMPORT...................
    FICHIER RECEPTION:


    J'ai fait ce code mais ca marche pas comme je veux:

    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
    open FICHIER,"<P:\\Prog_perl\\Infos_pivot1.txt" 
    or die "Ce fichier n'existe pas!"; 
     
    open WRITER, ">P:\\Prog_perl\\Tab1_type.txt" 
    or die "Le fichier ne peut etre édité!"; 
     
    $ligne =<FICHIER> ; 
     
    foreach ($ligne) { 
    if (substr($ligne,48)="Reception"){ 
    print WRITER; 
    } 
    } 
     
    __END__


    Quelqu'un peut il m'aider svp?
    Merci d'avance

  2. #2
    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
    votre message est illisible, merci de lire les règles du forum la prochaine fois.

    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
    #!/usr/bin/perl
    use warnings;
    use strict;
     
    my $FichierInput = 'P:/Prog_perl/Infos_pivot1.txt';
    my $FichierOutput = 'P:/Prog_perl/Tab1_type.txt';
     
    open ( FICHIER, '<', $FichierInput ) 
      or die ("Ce fichier $FichierInput n'existe pas!"); 
     
    open (WRITER, '>', $FichierOutput) 
      or die ("Le fichier $FichierOutput ne peut etre édité!"); 
     
    while ( my $Ligne = <FICHIER> ) {
      $Ligne =~ s{Type}{Reception}gi;
      print WRITER $Ligne;
    }
     
    close(FICHIER);
    close(WRITER);
     
    __END__

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2009
    Messages : 9
    Par défaut
    Citation Envoyé par djibril Voir le message
    votre message est illisible, merci de lire les règles du forum la prochaine fois.

    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
    #!/usr/bin/perl
    use warnings;
    use strict;
     
    my $FichierInput = 'P:/Prog_perl/Infos_pivot1.txt';
    my $FichierOutput = 'P:/Prog_perl/Tab1_type.txt';
     
    open ( FICHIER, '<', $FichierInput ) 
      or die ("Ce fichier $FichierInput n'existe pas!"); 
     
    open (WRITER, '>', $FichierOutput) 
      or die ("Le fichier $FichierOutput ne peut etre édité!"); 
     
    while ( my $Ligne = <FICHIER> ) {
      $Ligne =~ s{Type}{Reception}gi;
      print WRITER $Ligne;
    }
     
    close(FICHIER);
    close(WRITER);
     
    __END__
    Merci d'avoir répondu si vite!
    Je m'excuse d'avoir écrit un méssage illisible.

    J'ai essayé votre code mais le probleme c'est qu'il remplace dans mon txt tous les mots "type" par "reception".
    Cela peut venir de quoi?

  4. #4
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Citation Envoyé par flongo Voir le message
    J'ai essayé votre code mais le probleme c'est qu'il remplace dans mon txt tous les mots "type" par "reception".
    Cela peut venir de quoi?
    cela vient de la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    $Ligne =~ s{Type}{Reception}gi;

    FAQ Remplacement et substitution

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2009
    Messages : 9
    Par défaut
    Citation Envoyé par Jasmine80 Voir le message
    cela vient de la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    $Ligne =~ s{Type}{Reception}gi;

    FAQ Remplacement et substitution
    OK.Je me suis mal exprimé:
    Je veux pas qu'il remplace le mot type par reception.

    Je veux qu'en faite que des qu'il voit le mot "type" ou "reception" dans ce fichier :

    INFO : Close File........................
    Reception................
    .....
    FIN IMPORT...................

    INFO : Close File........................
    Type................
    .....
    FIN IMPORT...................
    il me crée un txt pour:

    TYPE

    INFO : Close File........................
    Type................
    .....
    FIN IMPORT...................

    INFO : Close File........................
    Type................
    .....
    FIN IMPORT...................
    et un autre txt pour

    RECEPTION

    INFO : Close File........................
    Reception................
    .....
    FIN IMPORT...................

    INFO : Close File........................
    Reception................
    .....
    FIN IMPORT...................

  6. #6
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    OK.Je me suis mal exprimé:
    Je veux pas qu'il remplace le mot type par reception.
    Je veux qu'en faite que des qu'il voit le mot "type" ou "reception" dans ce fichier il me crée un txt pour...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    while ( my $Ligne = <FICHIER> ) {
      if ($Ligne =~ m/Type/i){
    	# traitement
      }
      if ($Ligne =~ m/Reception/i){
    	# traitement  
      }	  
     
    }
    Pour le second if, utilise un elsif si tu ne peux par retrouver sur la même ligne les mots type et réception.

Discussions similaires

  1. Réponses: 9
    Dernier message: 23/12/2013, 16h40
  2. Crypter une chaine de caractères
    Par Yabo dans le forum Réseau
    Réponses: 18
    Dernier message: 19/11/2004, 23h04
  3. Réponses: 9
    Dernier message: 17/01/2003, 11h45
  4. Lire Une Chaine De Caractères
    Par Jonathan_Korvitch dans le forum C
    Réponses: 12
    Dernier message: 07/01/2003, 05h37
  5. Réponses: 2
    Dernier message: 06/12/2002, 07h50

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