Discussion :

[titomiss]

Bonjour, voilà mon problème : J'ai un fichier texte du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
0340045Z;maison pour tous
0300047Z;maison de l'agriculture en zone rurale

Mon objectif est de lire le fichier texte dans une boucle,
chaque fois que la chaîne présente (espaces compris) de la colonne deux dépasse 20 caractères, je mémorise la colonne un et la colonne deux. J'écris dans un autre fichier texte (de sortie) les numéros (colonnne 1) et le libellé de plus de 20 caractères. L'objectif étant de "loguer" les libellés de plus de 20 caractères avec leur identifiant (colonnne1). Mon problème majeur est que je ne sais pas comment je peux faire pour aller lire simplement la colonne 2, lire sa longueur puis récupérer la colonne 1 si nécessaire. ça doit pouvoir se faire dans une seule boucle et sans utiliser de liste, juste avec deux variables ou même sans variables ?

Tant que pas fin fichier texte
lire ligne
si longueur col2>20 alors
ecrire sortie.txt identifaint;libelle
fin si
ligne suivante
fin tant que

Si quelqu'un peut m'aider

PS : Je n'ai pas le code écrit sous les yeux, il est au boulot.

[GnuVince]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
length($string);

[iblis]

Bonsoir. Jette un oeil à la doc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
use strict;
while (<DATA>) {
    chomp;
    my ($code, $chaine) = split ';';
    if (length($chaine) > 20) {
        print "$code\t$chaine\n";
    }
}
__DATA__
0340045Z;maison pour tous
0300047Z;maison de l'agriculture en zone rurale

[titomiss]

Merci