Discussion :

[emmachane]

Hier, j'ai testé sur mon PC sur lequel est installé une VM Linux Ubuntu.
Depuis, j'ai essayé sur la plate-forme cible qui elle tourne sous Unix Solaris.
Je suis navré de vous embêter.

Oui, c'est le message d'erreur original. Je ne sais pas ce qu'il entend pas là . J'ai souvent eu des soucis avec cette version d'Unix.

[zipe31]

tourne sous Unix Solaris.

Il ne doit pas aimer les sous-commandes ({... {...}...}) imbriquées ni les étiquettes
Pourtant j'utilise toujours des étiquettes avec une seule lettre vue que ça pose souvent problème avec les versions Unix si les étiquettes ont plus d'une lettre

Désolé

[lennelei]

Effectivement, les versions de sed/awk/... de Solaris/AIX/HPUX ne sont souvent pas les mêmes et sont généralement beauuuuucoup moins cools

C'est d'ailleurs bien de le préciser dés le départ dans ces cas là :p et c'est pour ça que je travaille beaucoup avec perl : au moins, il n'y a pas de surprises.

Je ne comprends pas quel cas ne passe pas avec le perl ? Tu as un exemple concret stp ? Dans mon exemple, j'ai un pavé

Code :

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

1
2
3
A4XXXX
B4XXXX
B4XXXX

qui arrive bien dans poubelle non ?

[emmachane]

mea culpa Alek-C. Tu as raison, ça fonctionne.
J'ai juste voulu adapter ton code pour traiter un autre fichier qui a exactement la même structure sauf qu'à la place des lignes qui démarrent par Z, celles du nouveau fichier démarrent par F.

Du coup, voici le code qui j'ai adapter

Code :

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

perl -ne 'if (/^A/) {print STDERR $buf if ($buf); $buf=$_} elsif (/^F/) {$buf.=$_; if ($buf =~ /^A/m) {print STDOUT $buf} else {print STDERR $buf};$buf=""} else {$buf.=$_};' pave3.txt 1> liste 2>poubelle

J'ai testé et ça fonctionne.
Merci à vous deux pour votre aide.

[frp31]

Salut,



Je ne pense pas que ce soit demandé

si il veut un séparateur de bloc... voir le premier post

[zipe31]

si il veut un séparateur de bloc... voir le premier post

Relis bien tout

[lennelei]

J'ajoute une remarque suite à une question posée : le script perl proposé a une petite faiblesse. En effet, si le fichier ne se termine pas par une ligne commençant par Z, il va manquer la ou les dernières lignes dans le fichier poubelle puisque l'affichage du buffer ne se fait que lorsqu'on rencontre une ligne commençant par Z (ou par A, mais dans ce cas, il manquera quand même la dernière ligne) (j'avoue que j'espérais que ce cas ne se pose pas ).

La seule solution que je vois est de ne pas utiliser l'option -n (qui réalise automatiquement une boucle lecture du fichier en paramètre) pour réaliser explicitement cette lecture et ajouter un affichage en fin de traitement :

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
23
24
25
26
27
28
29
30
$ cat pave.txt
A1XXXX
B1XXXX
B1XXXX
Z1XXXX
A4XXXX
B4XXXX
B4XXXX
A5XXXX
B5XXXX
B5XXXX
Z5XXXX
A6XXXX
B6XXXX
$ perl -e 'while (<>) {if (/^A/) {print STDERR $buf if ($buf); $buf=$_} elsif (/^Z/) {$buf.=$_; if ($buf =~ /^A/m) {print STDOUT $buf} else {print STDERR $buf};$buf=""} else {$buf.=$_}}; print STDERR $buf if $buf;' pave.txt 1>liste 2>poubelle
$ cat liste
A1XXXX
B1XXXX
B1XXXX
Z1XXXX
A5XXXX
B5XXXX
B5XXXX
Z5XXXX
$ cat poubelle
A4XXXX
B4XXXX
B4XXXX
A6XXXX
B6XXXX

Edit: en fait, il existe une option pour cela en perl, du coup, on peut remettre le -n et virer le while... et la dernière commande (ouf)

Code :

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

perl -ne 'END {print STDERR $buf if $buf} if (/^A/) {print STDERR $buf if ($buf); $buf=$_} elsif (/^Z/) {$buf.=$_; if ($buf =~ /^A/m) {print STDOUT $buf} else {print STDERR $buf};$buf=""} else {$buf.=$_}' pave4.txt 1>liste 2>poubelle

[emmachane]

Merci Alek-C.