Utilisation de HTML::Parser

**mobscene** · 26/10/2005, 13h35

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 :

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

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 !!!!!!

**shwin** · 26/10/2005, 15h10

Tu as été sur cpan ?

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

Tu as de très belle exemple.

**mobscene** · 26/10/2005, 15h13

Si , Si mais j'ai rien capté

**djibril** · 26/10/2005, 15h35

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!

**mobscene** · 26/10/2005, 16h40

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

**mobscene** · 26/10/2005, 17h55

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

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
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";

**djibril** · 27/10/2005, 13h57

bravo 8)

Utilisation de HTML::Parser

Web Perl

Discussions similaires

Partager

Partager