help me probleme script perle

bonjour,
voici mon probleme je dois retrouver dans un fichier log, certaine ligne
voici ma ligne perle :
cat /app/RIP/zguerlais.babar | perl -ne 'print $1, "\n" if (/DIFETAT-ID BURCAP/../2358/) && /YCA3\s+(.*)/' > /app/RIP/prod/data/CAPTUR_TESTS_AERO/rcdepcon/ccom$j1.log
et voici le resultat :
*DIFETAT-ID BURCAP
*** CAPTURE DATE 260507180205 ****
CAPAU0
1 TST101 000000000001
DIRECTORY TAPE IS BON052
LIST OF BONNOT'S FOR CAPTURE
SEQ NO REEL
1 BON052
END OF CAPTURE YCAP
[B]*DIFETAT-ID BURCAP
*** CAPTURE DATE 260507180205 ****
CAPAU0
1 TST101 000000000001
DIRECTORY TAPE IS BON052
LIST OF BONNOT'S FOR CAPTURE
SEQ NO REEL
1 BON052
END OF CAPTURE YCAP

********************************************************
YCA3-YCPDIR volser 007805 service on R40K unit 0
R40Ku0/007805 non-cprssed byte xfered to initiator 240
R40Ku0/007805 bytes read from tape 288
R40Ku0/007805 non-cprssed byte xfered from initiator 23472
R40Ku0/007805 bytes written on tape 2112
R40Ku0/007805 blocks succesfully read by host 4
R40Ku0/007805 blocks succesfully written by host 13
R40Ku0/007805 blocks succesfully read from tape 2
R40Ku0/007805 blocks succesfully written on tape 7
YCA3-YCPDIR volser 007805 on R40K unit 0 free done
YCA3 : DIRECTORY TAPE IS 007805
YCA3 : LISTING PRINTED

*************************************************


*DIFETAT-ID BURCAP
*** CAPTURE DATE 260507211145 ****
CAPAU0
1 TST102 000000000001
DIRECTORY TAPE IS 007805
LIST OF BONNOT'S FOR CAPTURE
SEQ NO REEL
1 BN2871
2 BN1676
3 BN0017
4 BN2883
END OF CAPTURE YCAP

*DIFETAT-ID BURCAP
*** CAPTURE DATE 260507211145 ****
CAPAU0
1 TST102 000000000001
DIRECTORY TAPE IS 007805
LIST OF BONNOT'S FOR CAPTURE
SEQ NO REEL
1 BN2871
2 BN1676
3 BN0017
4 BN2883
END OF CAPTURE YCAP

je voudrais ne plus avoir les lignes du fichier ci dessus qui sont entre les deux lignes d'astériques

merci pour votre aide

ps je ne connait rien en perle

Le langage s'appelle Perl.

Tu n'es pas sur le bon forum, comme un rapide coup d'oeil aux sujets de ce forum t'en aurais convaincu... Après tout ton sujet est tout seul, et il y a un sujet en haut de ce forum te disant de NE PAS POSTER ICI tout en majuscule ! Il faut poster dans les sous-forums.
Je te déplace dans le sous-forum Langage, mais évite à l'avenir, je me contenterai de supprimer ton prochain message ici.

Je pense que ceci devrait fonctionner :

Code:

---

cat /app/RIP/zguerlais.babar | perl -ne 'print $1, "\n" if (/DIFETAT-ID BURCAP/../2358/) && not (/\*{10}/.../\*{10}/) && /YCA3\s+(.*)/' > /app/RIP/prod/data/CAPTUR_TESTS_AERO/rcdepcon/ccom$j1.log

---

(Attention le fait qu'il y ait trois points et non deux est important)
--
Jedaï