Discussion :

[Emilie34]

Bonjour ,

J'ai un petit soucis en ce qui concerne la substitution multiligne dans un fichier html.
J'ai par exemple mon fichier html qui contient ceci :

Code :

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

1
2
3
4
5
6
7
8
 
<style type='text/css'>
 
		.bdhautstyle {
		background-image: url(./architect/img/bd_recherche.jpg);
		}
 
</style>

et je voudrais pouvoir supprimer cette balise en entier

voici mon code perl actuel :il me supprime bien les balises <div> etc vu qu'elles sont sur une seule ligne mais quand c'est sur plusieurs je ne sais pas comment l'écrire (je suis débutante en perl)

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
 
#!/usr/bin/perl
 
if (open (FD, $ARGV[0])) {
    undef $/;
    $lignes = <FD>;
    #print $lignes;
    $lignes =~ s|<div.*?>||g;
    $lignes =~ s|</div>||g;
    $lignes =~ s|<span.*?>||g;
    $lignes =~ s|</span>||g;
    $lignes =~ s|<form.*?>||g;
    $lignes =~ s|</form>||g;
    $lignes =~ s|<input.*?>||g;
    $lignes =~ s|</input>||g;
    $lignes =~ s|<select.*?>||g;
    $lignes =~ s|</select>||g;
    $lignes =~ s|<option.*?>||g;
    $lignes =~ s|</option>||g;
    $lignes =~ s|<h[1-9].*?>||g;
    $lignes =~ s|</h[1-9].*?>||g;
    $lignes =~ s|<meta.*?>||g;
    $lignes =~ s|<style.*?>.*?</style>/m||g;
    $lignes =~ s|<script.*?>.*?</script>||g;
    $lignes =~ s|<link.*?>||g;
    $lignes =~ s|<!--.*?-->||g;
 
    print $lignes;
}

Je vous remercie d'avance
Bonne Journée

[djibril]

Pour parser des fichiers HMTL, il est conseillé d'utiliser un module déjà fait pour ça car à coup de regex, tu ne t'en sortira pas. Je te conseil le module HTML::Parser

[Emilie34]

Est ce qu'il y a un tutoriel ou quelque chose qui puisse m'aider a utiliser HTML:Parser car ca me parait un petit peu obscur :?

[djibril]

Il faut lire la documentation du module .
Sinon voici un post où on en parle un peu et voici un article des mongueurs sur ce sujet.

bonne lecture

[Emilie34]

Merci ..
Est ce que tu saurais pas seulement comment écrire mon problème avec perl tout simple? car avec mon fichier j'arrive à avoir ce que je désire et jai pas trop le temps de regarder en détail un nouveau module :s

j'ai essayer cela mais ca marche pas :
$lignes =~ s|<script.*?>.*?</script>||m;
$lignes =~ m|<script.*?>.*?</script>||m;

J'ai lu qu'il fallait un m pour faire multilignes mais ...

[Philou67430]

Dans ton cas, je dirais que c'est plutôt l'option s que tu cherches à utiliser, à savoir faire en sorte que . "matche" également \n, au lieu de l'option m, qui n'a d'effet que sur ^ et $ (voir perldoc perlre, paragraphe Modifiers).