perl enlever paragraphe

Bonjour,
Soit
cat Desktop/poub
Description
Titre des livres

et cat Desktop/calendarFromBasic.pl
#! /usr/bin/perl -w
#$fich_calendar_html ='/home/peter/Desktop/basic.html';
$fich_calendar_html ='/home/peter/Desktop/poub';
open(FICH, $fich_calendar_html);
@occur = <FICH>;

close FICH;
$occur = join ('', @occur);
$occur =~ s/\<.*?\>//g;
$occur =~ s/Descrip.*?Titr/Titr/g;
print $occur;
exit;

Je ne comprends pas pourquoi ça renvoie
Description
Titre des livres

alors que par "$occur =~ s/Descrip.*?Titr/Titr/g;"
ça devrait supprimer tout le paragraphe Description(= tout ce qui est entre Descrip et Titre) et renvoyer
Titre des livres

? Qu'est-ce qui est faux dans ma commande

Par défaut "." reconnaît tout caractère sauf newline "\n".
Généralement, si tu veux faire de la reconnaissance multiligne utilise les modificateurs /m et /s (/s fait en sorte que "." reconnaisse vraiment tous les caractères et /m modifie la signification de ^ et $ pour leur faire reconnaître les débuts/fin de ligne) :

Code:

---

s/Descrip .*? Titr/Titr/xmsg;

---

--
Jedaï

Citation:

---

Envoyé par Jedai

Par défaut "." reconnaît tout caractère sauf newline "\n".
Généralement, si tu veux faire de la reconnaissance multiligne utilise les modificateurs /m et /s (/s fait en sorte que "." reconnaisse vraiment tous les caractères et /m modifie la signification de ^ et $ pour leur faire reconnaître les débuts/fin de ligne) :

Code:

---

s/Descrip .*? Titr/Titr/xmsg;

---

--
Jedaï

---

Bonjour,

Peux tu m'expliquer pourquoi dans la ligne de commande tu écris deux fois Titr stp ??

Je cherche également à supprimer un paragraphe dans un fichier. Merci d'avance.

Essaie d'utiliser les balises CODE :) signe dièse dans la barre d'outils.

Code:

---

s/Descrip .*? Titr/Titr/

---

Citation:

---

Peux tu m'expliquer pourquoi dans la ligne de commande tu écris deux fois Titr stp ??

---

s/partie_1/partie_2/
s pour 'substitution' qui remplace la partie 1 par la partie 2. Tu utilises Titr afin de limiter la partie à modifier et ensuite tu remplaces cette partie à modifier par le Titr à garder.

Tu peux te renseigner sur la FAQ http://perl.developpez.com/faq/?page...B72#sectionB76

Citation:

---

Je cherche également à supprimer un paragraphe dans un fichier. Merci d'avance.

---

En premier lieu, tu dois identifier ce qui définit le début et la fin de ce paragraphe (ou le début du paragraphe suivant), une structure dans ton texte.

Code:

---

1 2	s/Debut_paragraphe_a_supprimer .*? Titre_paragraphe_suivant/Titre_paragraphe_suivant/xmsg;

---

Parfait!
Merci à vous!
Et le x de -xmsg ? Dans man perl , je vois juste -x dir ?

Citation:

---

Et le x de -xmsg ?

---

http://perl.developpez.com/faq/?page...B72#sectionB75

/xmsg n'a rien à voir avec -x (qui est un test de fichier).
Les regexps en Perl peuvent être modifiées en rajoutant des options à la fin, par exemple /i rend la regexp insensible à la casse, /g rend le remplacement global (au lieu de n'avoir lieu qu'une fois, le remplacement est fait à toutes les occurences de la regexp), /m et /s ont à voir avec le traitement des chaînes de caractères multilignes (ici /s est indispensable, /m ne l'est pas, mais autant mettre les deux, c'est plus facile à retenir), /x permet d'écrire les regexp plus élégamment, etc ...
Consulte la doc pour plus de détails (perlre par exemple).

--
Jedaï

Merci pour vos réponses. Si j'ai bien compris :

Code:

---

s/motif_debut_partie _à_supprimer .*? motif_fin_partie_à_supprimer/motif_debut_partie_à_laisser/xmsg;

---

J'ai fais quelques essais car je souhaite supprimer les dernières lignes de plusieurs fichiers.
J'ai donc utilisé la commande suivante :

Code:

---

s/sub .*? %re;}//xmsg;

---

Mais ca ne marche. Je pense que c'est la partie motif_debut_à_laisser qui pose problème. La commande est elle adaptée dans mon cas?

Citation:

---

Merci pour vos réponses. Si j'ai bien compris :

---

non, tu n'as pas compris

Code:

---

s/motif_debut_partie _à_supprimer .*? motif_fin_partie_à_supprimer/motif_debut_partie_à_laisser/xmsg;

---

... ce n'est pas ce que j'ai écrit, relis mon message précédent.

Soit tu fais

Code:

---

s/motif_debut_partie _à_supprimer .*? motif_debut_partie_à_laisser/motif_debut_partie_à_laisser/xmsg;

---

soit

Code:

---

s/motif_debut_partie _à_supprimer .*? motif_fin_partie_à_supprimer//xmsg;

---

Essaie de comprendre le principe de la substitution et cela sera plus clair :)

Code:

---

s/sub .*? %re;}//xmsg;

---

Quelles phrases de début et de fin de paragraphe dois-tu trouver?

J'ai un fichier de la forme :

flzoefihrfnh
fnzoehf
nfreof
nfrehgf
sub essai() {
return %essai ;
}

sub long() {
return %long ;
}
//Fin du fichier

Le but est de supprimer tout ce qui se trouve après le premier sub.

Avec la commande

Code:

---

s/sub .*? %long//xmsg;

---

Je supprime tout sauf ;}

Et lorsque je fais

Code:

---

s/sub .*? %long;}//xmsg;

---

Il ne reconnait pas. Rien n'est supprimé.

Utiliser un mot limitant après .* servait justement à ne pas supprimer l'entièreté de la fin du fichier ... mais apparemment dans ton cas, c'est justement ce que tu souhaites.

Cela supprimera tout ce qui suit le premier 'sub' trouvé dans ton fichier (donc, jusqu'à la dernière ligne)

Code:

---

s/sub .*//xmsg;

---

Super, ca fonctionne. Merci beaucoup.

Franchement, si le but du jeu c'est ça, c'est utiliser une piscine pour noyer une fourmi.

Dans ce ca il suffisait de faire

Code:

---

1 2 3 4 5

while(<FILE>){ last if(/sub/); print; }

---

Mais bon, je pinaille...

Citation:

---

Franchement, si le but du jeu c'est ça

---

Non, je ne pense pas vu que le sujet a été posé par moueza

Citation:

---

ça devrait supprimer tout le paragraphe Description(= tout ce qui est entre Descrip et Titre) et renvoyer
Titre des livres

---

Puis que Wafa_o est intervenue avec une autre question

Citation:

---

Le but est de supprimer tout ce qui se trouve après le premier sub.

---

... enfin, je m'y perds un peu mais apparemment, il y a deux intervenants avec deux buts différents.

Je ne voulais pas utiliser de if justement. Mais merci quand même