Lecture de fichier Lotus word pro

Version imprimable

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 :cry: , je veut extraire d'une page web comme :
Code:

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 :oops:

merci

27/03/2006, 19h16
scaleo

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é :twisted:

HTML::Parser 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:

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ï

27/03/2006, 21h57
scaleo

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