Discussion :

[moueza]

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

[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électionner tout - Visualiser dans une fenêtre à part

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

--
Jedaï

[Wafa_o]

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électionner tout - Visualiser dans une fenêtre à part

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.

[Jasmine80]

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

Code :

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

s/Descrip .*? Titr/Titr/

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

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 :

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

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

[moueza]

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

[Jasmine80]

Et le x de -xmsg ?

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

[Jedai]

/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ï