Utilisation de HTML::Parser

Version imprimable

26/10/2005, 13h35
mobscene

Utilisation de HTML::Parser
Je cherche depuis quelques jours comment extraire des tags html avec html parser ceux de la secton <head>...</head> .

Il faut que je puisse extraire les tags
Code:

1 2 3 4 -> keywords -> title -> description -> charet [ <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> ]
Je n'arrive pas a utiliser ce module. Please Help !!!!!!
26/10/2005, 15h10
shwin

Tu as été sur cpan ?

http://search.cpan.org/~gaas/HTML-Parser-3.46/Parser.pm

Tu as de très belle exemple.
26/10/2005, 15h13
mobscene

Si , Si mais j'ai rien capté :oops:
26/10/2005, 15h35
djibril

cherche dans google, tu trouveras des scripts plus clair et plus simple. je le manie souvent mais ne l'ai pas sous la main, sorry!
26/10/2005, 16h40
mobscene

:twisted: pas moyen de mettre la main sur un script qui l'utilise :twisted: :evil: :twisted: :twisted:

J'ai trouvé une alternative qui marche a merveille et , est beaucoup plus légère

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
require HTML::HeadParser;
use LWP::Simple;
 
                            $l = get("http://www.free.fr");
 
  $p = HTML::HeadParser->new;
  $p->utf8_mode;
  $p->parse($l);
 
    print $p->header('Title');
    my $charset  = $p->header('Content-Type');
    my $keywords = $p->header('X-Meta-keywords');
    my $description = $p->header('X-Meta-Description');
    my $category = $p->header('X-Meta-category');
    my $robots  = $p->header('X-Meta-robots');
 
 
 
    print "$title\n";
    print "$charset\n";
    print "$keywords\n";
    print "$description\n";
    print "$category\n";
    print "$robots\n";

27/10/2005, 13h57
djibril

bravo 8)