Besoin d'un coup de main avec HTML::Parser

**mobscene** · 09/12/2006, 15h35

Je suis entrain décrire une version perso de HTTP::Async , je suis entrain d'implémenter la gestion des frames mais je bloque sur leur "fusion" avec la page principale.

Il faut que pour chaque frame je récupère le tout ce qui ce trouve entre les balises <body> et </body>, j'ai tenté l'opération avec HTML::Tokeparser sans succès

, j'ai donc décider d'utilise HTML:

arser mais dans le tuto le synoptic indique

Code :

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

1
2
3
4
5
6
 # Create parser object
 $p = HTML::Parser->new( api_version => 3,
                         start_h => [\&start, "tagname, attr"],
                         end_h   => [\&end,   "tagname"],
                         marked_sections => 1,
                       );

Je met quoi dans les fonctions start et end ??????

**mobscene** · 09/12/2006, 15h49

Ah bah c'est bon j'ai trouvé comment sa marche

pour ceux que sa intéresse

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl -w
use strict;
use diagnostics;
use LWP::Simple;
use Data::Dumper;
use HTML::Parser ();
 
my $code = get('http://clubic.com');
 
{
  my $in_object = 0;
 
  sub start {
    my ($tag, $text) = @_;
    if( not $in_object ){
      if( $tag eq 'body' ) {
        print $text;
        $in_object++;
      }
    } else {
      print $text;
    }
  }
 
  sub end {
    my ($tag, $text) = @_;
    if( $in_object ) {
      print $text;
      $in_object-- if( $tag eq 'body' );
    }
  }
 
  sub text {
    my $text = shift;
    if( $in_object ){
      print $text;
    }
  }
}
 
my $p = HTML::Parser->new( api_version => 3,
                         start_h => [\&start, "tagname, text"],
                         end_h   => [\&end,   "tagname, text"],
                         text_h => [\&text, "text"]
                       );
 
$p->parse( $code );

Besoin d'un coup de main avec HTML::Parser

Modules Perl

Discussions similaires

Partager

Partager