Bonjour,

j'ai un fichier .csv construit ainsi:

Il n'y a jamais plus de 9 champs par lignes.

Le but de mon petit script serait de le modifier ainsi:

Le script que j'ai codé jusqu'ici a cette tête:

Si la commande awk rencontre une ligne dont le 5e champ est non-nul alors la ligne est dupliquée selon le schéma ci-dessus. L'utilité du "NR=NR-2" est de "repasser" sur les lignes qui contiennent plus de 5 champs. C'est là où ça coince car cette dernière ligne ne fonctionne pas comme je le souhaiterai. Je suppose qu'il y a une subtilité, à moins que ça ne soit pas possible ?

Au final mon fichier2 est bien construit pour les lignes du fichier1 qui ne sont composées que de 5 champs au maximum. J'ai toutefois des lignes dans le fichier2 qui ont un 4e champ vide.

Problème résolu.
 
Vraiment bête comme solution, le plus simple n'arrive pas toujours en 1er place dans mon esprit

 
Y'a du "gâchis" en copiant de nombreuses lignes qui ne contiennent pas de champs 4.
 
Le problème qui reste est que si de nouvelles lignes avec + de 9 champs font leur apparition le script va bugger mais en compter le nombre de champ maximum rencontré lors de la lecture du fichier on peut arranger le 4e champ avec une variable associée au nombre maximum de champs.
 
Si c'est pas clair et que vous souhaitez + d'info repostez sur ce topic.

Il y a une raison pour que ce soit en awk? En perl tu pourrais probablement avoir un truc qui marche sans limitation du nombre de champs.
A+,

En effet j'aurai très bien pu faire ça en perl. Mais je me suis jamais penché sur ce langage. Je pensai que c'était un gain de temps de ne pas utiliser un langage inconnu pour moi et de me concentrer sur mes acquis si je voulais finir rapidement mon script.
 
Je sens que je vais quand même y jeter un oeil la prochaine fois. On se donne RDV dans la section perl

Pour parser des données formattées comme suit:

j'utiliserais ceci:

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;
 
my $sep = ';';
my $csv = new Text::CSV({sep_char => $sep});
my @f;
while (<> ) {
    if($csv->parse($_)) {
        @f = $csv->fields();
        if (scalar(@f) > 3) {
            print join("\n", map {$f[0].$sep.$f[1].$sep.$f[2].$sep.$_} @f[3..scalar(@f)-1]), "\n";
        }
    }
}

a la ligne 7, je crée un nouveau parser au format CSV
a la ligne 9, je récupère stdin ligne a ligne
a la ligne 10 et 11: une ligne est parsée et ses champs sont rangés dans un array
a la ligne 12 et 13: s'il y a plus de trois champs, je crée un sous-array qui démarre a partir du 4e champ, je concatène les 3 premiers champs de l'ancien array a chaque champ du sous-array, et j'imprime chaque champ ainsi modifié ligne à ligne.
 
Pour la ligne en entrée numero1;prov1;dest1;prot1a;prot1b  
après parsing, @f est un array a 5 éléments (numero1, prov1, dest1, prot1a, prot1b)
@f[3..scalar(@f)-1]) vaut donc (prot1a, prot1b)
$f[0].$sep.$f[1].$sep.$f[2].$sep vaut "numero1;prov1;dest1;"
map {$f[0].$sep.$f[1].$sep.$f[2].$sep.$_} @f[3..scalar(@f)-1] transforme donc  
(prot1a, prot1b) en (numero1;prov1;dest1;prot1a, numero1;prov1;dest1;prot1b) et il ne reste plus qu'a imprimer chaque élément de cet array comme une ligne, par du code standard (print join '\n',...).
A+,

Si j'ai bien compris

Excellent ça. Ça fait trop longtemps que je n'ai plus touché à awk pour me souvenir de sa syntaxe  
A+,

Merci gilou pour ces explications.
 
Et merci erulio ta commande fonctionne impec'  
 
Edith: c'est le NF>3 qui ne m'était pas venu à l'esprit. Ca fonctionne comme un if en fait ?  

C'est sans doute strictement identique à un if(NF<3) placé correctement. Donc en fait non, ça devait pas te gêner tant que ça

Ouai enfin y'a une marge entre ton  

et mon