Lecture de fichier Lotus word pro

**scaleo** · 25/03/2006, 18h18

Bonjour je cherche depuis quelque jours déjà comment lire les fichiers lotus word pro (lwp) et ms document imaging (mdi) avant de me lancer dans la programmation de modules spécifique j'aimerai savoir si quelqu'un connais un module pour l'un ou lautre de ces formats.

J'ai aussi besoin d'un petit coup de main avec html::parser je comprend pas trop comment il marche

, je veut extraire d'une page web comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<html>
<head>
<title>test</title>
</head>
 
<body>
<img alt="gna gna gna" src="blabla.gif" border="0" width="60" height="60" />
 <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="900" height="480">
    <param name="movie" value="morleycover.swf" />
    <param name="quality" value="high" />
    <embed src="morleycover.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="900" height="480"></embed>
  </object></body></html>

le flash <object></object> et le alt de l'image j'ai beau me creuser la tête je n'y arrive pas

merci

**scaleo** · 27/03/2006, 19h16

Oki donc je vais coder sa, mais pour html::parser j'y arrive pas moi et ce module ont commence sérieusement a être faché

**Jedai** · 27/03/2006, 20h57

HTML:

arser est un parser basé sur les évènements, en tant que tel il n'est pas très compliqué, mais il faut raisonner d'une manière particulière (automates à états, éventuellement à pile) pour en tirer parti :

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
48
49
50
51
52
53
54
55
56
57
 
#!/usr/bin/perl
use strict; use warnings;
 
use HTML::Parser ();
 
{
  my $in_object = 0;
 
  sub start {
    my ($tag, $text) = @_;
    if( not $in_object ){
      if( $tag eq 'object' ) {
        print $text;
        $in_object++;
      }
    } else {
      print $text;
    }
  }
 
  sub end {
    my ($tag, $text) = @_;
    if( $in_object ) {
      print $text;
      $in_object-- if( $tag eq 'object' );
    }
  }
 
  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_file( *DATA );
__DATA__
<html>
<head>
<title>test</title>
</head>
 
<body>
<img alt="gna gna gna" src="blabla.gif" border="0" width="60" height="60" />
 <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="900" height="480">
    <param name="movie" value="morleycover.swf" />
    <param name="quality" value="high" />
    <embed src="morleycover.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="900" height="480"></embed>
  </object></body></html>

--
Jedaï

**scaleo** · 27/03/2006, 21h57

Merci pour le bout de code Jedai , j'ai compris comment sa marche grace a lui

Lecture de fichier Lotus word pro

Modules Perl

Vue hybride

Discussions similaires

Partager

Partager