Unilignes perl pour nos sources [Sources]

[Philou67430]

Le bug, c'est que si on sélectionne la dernière colonne et qu'on la place avant la fin, les lignes seront coupées en deux. Et même si on la met en dernier, comme dans le fichier d'origine, on aura une ligne vide sur deux.

[djibril]

modification effectuée dans les sources. C'est ok pour toi ?

[Philou67430]

Oui, ça me semble parfait. Par contre, j'ai pas refait d'essai... Il aurait été intéressant dans l'article de mettre un exemple de csv

[djibril]

Je ne suis pas contre un autre exemple de csv. Si tu en as un sous la main, met le sur ce fil et je le rajoute dans la source.

[Philou67430]

En fait, c'est OK, j'ai récupéré le fichier de test avec un copier/coller et je l'ai testé avec la dernière colonne en premier : tout baigne (et il y avait bien un bug).

[djibril]

Envoyé par Philou67430

En fait, c'est OK, j'ai récupéré le fichier de test avec un copier/coller et je l'ai testé avec la dernière colonne en premier : tout baigne (et il y avait bien un bug).

[Alek-C]

Envoyé par Philou67430

Q/R : Comment afficher des colonnes particulières depuis un fichier de type xsv (tableau texte) ?
Chapitres : Traitement de fichiers
Testé sous : Linux, Windows

Code :

perl -ne 'print join " ", @{[ split /;/ ]}[8,0]' fichier.csv

Dans ce code, l'expression régulière du split constitue le séparateur de colonne du fichier d'entrée passé en paramètre (le retour à la ligne est considéré comme le séparateur de ligne).
Les colonnes affichées dans l'exemple sont les colonnes d'indice 8 et 0, dans cet ordre. Elles sont affichées avec le paramètre du join comme séparateur.

Hello,

Je viens de tomber sur ce sujet, et je vais peut-être dire une bêtise, mais pourquoi ne pas utiliser l'option "-a" dans ce cas ? Est-ce parce qu'elle n'est pas disponible partout ?

Avec l'exemple cité, ceci semble fonctionner (tout du moins sous Linux) :

Code :

perl -naF';' -e 'print "$F[8] $F[0]\n"' fichier.csv

[Philou67430]

Tout bonnement parce que je ne connaissais pas ces options -a et -F

Il faut naturellement utiliser ces options qui simplifient l'uniligne d'origine :

Code :

perl -naF';' -e 'chomp;print join qq( ), @F[8,0], $/' fichier.csv

En attente d'un essai, je remet chomp qui, d'après la doc, n'est pas fait par l'option -a.

[Philou67430]

En fait, c'est plus compliqué que cela, le chomp n'est pas fait, et l'introduire sur $_ ne fonctionne pas : il faut le faire sur $F[$#F], ce qui alourdit légèrement l'uniligne (il serait logique que -a fasse le chomp).

Code bash :

perl -naF';' -e 'chomp($F[$#F]);print join qq( ), @F[8,0], $/' fichier.csv

[Philou67430]

Au final, l'option -l nous sauve la vie, et fait le chomp avant que l'option -a découpe l'entrée :

Code :

perl -nlaF';' -e 'print join qq( ), @F[8,0], $/' fichier.csv

[djibril]

-l permet le traitement automatique des fins de ligne. Cette option a deux effets :

Utilisée avec -n ou -p, elle fait automatiquement un chomp au début de la boucle implicite.

Elle affecte à $\ (le séparateur d'enregistrements en sortie) le caractère dont la valeur octale a été passée. Si aucune valeur octale n'est donnée, l'option met $\ à la valeur courante de $/.

Cette affectation $\ = $/ est faite au moment où l'option est rencontrée. Le séparateur d'enregistrements en entrée peut donc être différent du séparateur en sortie si l'option -l est suivie par l'option -0.

[Alek-C]

Effectivement, c'est dommage de devoir gérer ce chomp / saut de ligne, je n'y avais pas pensé !

Je crois aussi qu'on peut utiliser $F[-1] pour le dernier élément d'un tableau (au lieu de $F[$#F]) ce que je trouve personnellement un peu plus parlant (et surtout, on peut aussi utiliser -2 -3... ).

Mais là encore, je ne sais pas si c'est compatible partout !

[djibril]

On pourrait expliquer que le code

Code :

perl -nlaF';' -e 'print join qq( ), @F[8,0], $/' fichier.csv

équivaut à

Code :

1
2
3
4
5
6
7
#!/usr/bin/perl
$\ = $/;                            # option -l
while (<>) {                        # option -n
  chomp $_;                         # options -l et -n
  @F = split /;/;                   # option -a et -F
  print join qq( ), @F[8,0], $/;    # option -e
}

Qu'en pensez-vous ?

[Alek-C]

ça peut être une bonne chose

[djibril]

sinon petit bug :

Code csv :

1
2
col0;col1;col2;col3;col4;col5;col6;col7;col8;col9;col10
test1;test2;test3;test4;test5;test6;test7;test8;test9;test10;test11

Sous Windows

Code :

perl -nlaF';' -e "print join q(-), @F[8,0], $/" test.csv

Résultat :

col8-col0-

test9-test1-

[Alek-C]

J'ai l'impression qu'avec l'option -l, il ne faut pas afficher le saut de lignes :

Code :

perl -nlaF';' -e 'print join qq( ), @F[8,0]' fichier.csv

peut-être que perl ajoute automatiquement le print qui va bien à chaque itération ?

(ton code donnait la même chose sous Linux djibril)

Edit, bon, en fait, c'est exactement ce que fait $/ (que je ne connaissais pas )

[djibril]

Envoyé par Alek-C

J'ai l'impression qu'avec l'option -l, il ne faut pas afficher le saut de lignes :

Code :

perl -nlaF';' -e 'print join qq( ), @F[8,0]' fichier.csv

Je modifierais qq{ } en q{ }. Il n'y a pas d'interpolation, donc qq est inutile.

[djibril]

Alek-C, je t'ajoute dans les auteurs des sources . Tes futurs propositions sont les bienvenues.

[Alek-C]

Envoyé par djibril

Alek-C, je t'ajoute dans les auteurs des sources . Tes futurs propositions sont les bienvenues.

Oula, faut pas s'emballer, j'ai carrément pas le niveau en perl ! Je suis tombé sur ce sujet par hasard, et par hasard aussi, j'ai découvert le -a (je cherchais le moyen de faire un traitement à la fin d'un perl -ne... pour vider un buffer ) :p

Plus sérieusement, c'est avec plaisir que je penserais à ce topic, j'utilise souvent des petits scripts perl pour éviter de jongler entre les différentes versions de sed/awk/grep qu'on trouve selon les OS, et si certains me semblent utiles, je viendrais les soumettre ici sans problème ! Par contre, il y aura sans doute des retouches à faire

[djibril]

Voilà : Comment afficher des colonnes particulières depuis un fichier de type csv (tableau texte) ?