Discussion :

[siaoly]

Je cherche depuis un bon moment déjà le regxp pour , extraire le contenue des balises méta dans du code html , j'ai testé plein de combinaison rien a faire je trouve pas .

les balise dont je veut le contenue sont

<meta http-equiv="Content-Language" content="fr">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="Description" content="Bla bla bla mon site est le meilleur">

merci de vos suggestions

[GLDavid]

Quelque chose de ce style ?

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
 
#!/usr/bin/perl
 
use warnings;
use strict;
 
my @tab = ();
open FILE,"< entree.jsp" or die "$!\n";
while(<FILE>){
	if(/(<meta http-equiv)/){
		push @tab, $_;
	}
	elsif(/(<meta name=)/){
		push @tab, $_;
	}
} 
close FILE;
foreach my $elm (@tab){
	print $elm;
}

Naturellement, les regexps pourront être affinées.

@++

[siaoly]

Heu, je me suis mal exprimé , je cherche en fait a extraire le contenue de ces balises

[djibril]

bah tu met des parenthese dans la regex de gldavid et recupere $1

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
 
#!/usr/bin/perl 
 
use warnings; 
use strict; 
 
my @tab = (); 
open FILE,"< entree.jsp" or die "$!\n"; 
while(<FILE>){ 
   if(/(<meta (.+)>/){ 
      push @tab, $1; 
   } 
close FILE; 
foreach my $elm (@tab){ 
   print $elm; 
}

[GLDavid]

Je t'ai pratiquement maché tout le boulot Djibril

[djibril]

Je t'ai pratiquement maché tout le boulot Djibril

[chostrama]

Le module HTML::TreeBuilder est super utile pour ce genre de choses :

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
 
#!/usr/bin/perl
use strict;
use warnings;
 
use HTML::TreeBuilder;
 
# creer une arborescence
my $arbre = HTML::TreeBuilder->new_from_file("monfichier.html");
 
#choisir les elements qui nous intéressent
my @metas = $arbre->look_down("_tag", "meta");
 
foreach  my $meta  ( @metas ) {
     print $meta->as_text() . "\n";
     # on pourrait aussi trier selon les attributs, etc.
}

[/code]