lecture simple de fichiers formatés

J'avais l'habitude de lire des fichiers textes à l'aide de AWK.
Dans ce langage, $0 est la ligne lue, $1 $2 ... sont les différents champs en fonction du séparateur défini dans la variable FS.
Je voudrais faire la même chose en PERL
Quelqu'un pourrait-il me dire comment définir le séparateur, comment accéder aux différents champs ?
Merci d'avance
Enicnath

Bonjour

Un peu d'effort ! La FAQ et mes cours disent comment lire des fichiers textes.

@++

Citation:

---

Envoyé par enicnath

J'avais l'habitude de lire des fichiers textes à l'aide de AWK.
Dans ce langage, $0 est la ligne lue, $1 $2 ... sont les différents champs en fonction du séparateur défini dans la variable FS.
Je voudrais faire la même chose en PERL
Quelqu'un pourrait-il me dire comment définir le séparateur, comment accéder aux différents champs ?
Merci d'avance
Enicnath

---

Dans le cadre d'unilignes, il est intéressant d'invoquer perl avec les options -a et -n (ou de les ajouter au shebang d'un script un peu plus long sur le même principe).

-n ajoute une boucle implicite de lecture du fichier passé en paramètre ou de l'entrée standard, selon les redirections. $_ est remplis avec les lignes successives.

-a active l'autosplit de la ligne $_ dans le tableau @F

Bon courage.

Heu c'est quoi AWK ?

Citation:

---

Envoyé par GLDavid

Bonjour

Un peu d'effort ! La FAQ et mes cours disent comment lire des fichiers textes.

@++

---

Désolé, mais je n'ai pas réussi à comprendre comment obtenir quelque chose d'aussi simple qu'avec AWK (qui est tellement moins puissant que je ne peux plus l'utiliser).

PS. pour ceux qui ne le connaissent pas, AWK est un 'vieux' langage UNIX qui sert à traiter des flots de textes.

En combinant split() et la lecture ligne à ligne (par l'opérateur <>) tu obtiens les mêmes fonctionnalités que Awk (en plus lisible, puisque les noms de variables ne sont pas imposés et que tu peux utiliser un tableau) en deux lignes de code (sans parler des options de la lignes de commande, qui te permettent effectivement de faire des unilignes à la puissance impressionante une fois maitrisées). :)

Code:

---

1 2 3 4

while( <> ){ my @fields = split; #traitement }

---

--
Jedaï

J'ai fait le code suivant, il fonctionne

Code:

---

1 2 3 4 5 6 7 8

open(FICHIER, "Lecture.cvs") || die ("problème !"); while (<FICHIER>) { @Champs = split(';'); $Annee=$Champs[0]; $Dep=$Champs[1]; $Valeur=$Champs[2]; }

---

Merci à tous

PS. peut être peut -on marquer ce post comme "résolu"

Tu peux utiliser le switch -a pour autosplitter $_ dans le array @F. Au lieu de dire $1, tu diras $F[0], $2 devient $F[1] etc. etc.

AWK est un langage assez chouette, écrit par Alfred Aho, Joseph Weinberg et Brian Kernighan. Le nom vient des initiales de leurs noms de famille. C'était une étude pour voir à quel point on pouvait combiner les capacités de sed et grep dans un seul programme.

De ce point de vue, ils avaient réussi admirablement. Le grand peché d'awk est d'être trop orienté un-fichier-en-entrée, un-fichier-en-sortie. Mais si tel est le besoin, un programme en awk sera beaucoup plus rapide que l'équivalent en Perl. Mais Perl a beaucoup de richesses qui n'ont pas d'analogues en awk.

Si tu veux partir d'awk vers perl, je peux conseiller le programme 'a2p' qui traduit awk en Perl. Mais attention, le résultat est ce que l'on obtient par traduction automatique. Ça fait du Perl qu'on dirait est passé par le Babelfish :)

N