Version imprimable
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à :calim2:. J'ai souvent eu des soucis avec cette version d'Unix.
:aie: Il ne doit pas aimer les sous-commandes ({... {...}...}) imbriquées ni les étiquettes :?Citation:
tourne sous Unix Solaris.
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é :(
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é
qui arrive bien dans poubelle non ?Code:
2
3
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
J'ai testé et ça fonctionne.Code: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
Merci à vous deux pour votre aide.
si il veut un séparateur de bloc... voir le premier post :DCitation:
Envoyé par zipe31
Relis bien tout ;)Citation:
Envoyé par frp31
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 :
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:
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
Code: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
Merci Alek-C.