Recherche de modules :(

**shinux2004** · 01/10/2005, 11h17

Sa fait près de deux semaines que je cherche des modules pour lire des fichiers rtf et doc , pour en extraire :

le texte bien sur
le titre
la date de création
la date de modification

J'ai trouver sans problème pour les pdf mais pour ces formats rien

.

**djibril** · 01/10/2005, 11h34

regarde du coté de Win32::OLE

**shinux2004** · 01/10/2005, 11h59

Est il possible d'utiliser Open Office avec perl , pour effectuer ces opérations ??

**GLDavid** · 01/10/2005, 12h46

http://search.cpan.org/search?query=OpenOffice&mode=all

**shinux2004** · 01/10/2005, 12h57

Il y un truc que j'ai ps compris dans ce module c comment ont lui indique quel fichier ouvrir , car moi mais fichier sont stocké dans une variable car je les récupère sur le net avec lwp.

Et un fois qu'ont a ouvert le fichier ou récupère t'on les données

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
use Win32::OLE;
 
 
# Ont vérifie que word est intallé
my $x = Win32::OLE->GetActiveObject('Word.Application');
die "Microsoft Word in not installed" if $@;
 
 
# Lancement de word
unless (defined $x) {
 $x = Win32::OLE->new('Word.Application', sub { $_[0]->Quit; } )
 or die 'Cannot start Word';
}
 
# Lecture du cdocument
my $d = $x->Documents->???????;

**djibril** · 01/10/2005, 13h33

regarde ça

**shinux2004** · 01/10/2005, 13h57

En fait si je fait sa je récupère mon document dans $Word

Code :

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

1
2
3
4
5
6
7
8
9
10
    use strict;
    use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Word';
    my $Word = Win32::OLE->new('Word.Application', 'Quit');
    # $Word->{'Visible'} = 1;         # si vous voulez voir ce qui se passe
    $Word->Documents->Open("C:\\DOCUMENTS\\test.doc")
        || die("Unable to open document ", Win32::OLE->LastError());
 
 
$Word->ActiveDocument->PrintOut; # Pour imprimer

merci djibril , pour ton super lien , je vais testé sa de suite-

**djibril** · 01/10/2005, 14h16

comment fais tu pour printer(pas imprimer) ton texte recuperé dans ton fichier sur la console? quel est la methode à utiliser?

**shinux2004** · 01/10/2005, 14h18

Ou peut ton trouver tout les "callback" pour ce module parce que c'est sa qu'il me faut en fait , je n'est pas la liste des fonctions

j'ai testé

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
use strict;
    use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Word';
    my $Word = Win32::OLE->new('Word.Application', 'Quit');
    # $Word->{'Visible'} = 1;         # si vous voulez voir ce qui se passe
    $Word->Documents->Open("C:\\Documents and Settings\\Teddy\\Bureau\\doc.doc")
        || die("Unable to open document ", Win32::OLE->LastError());
 
   # $Word->ActiveDocument->PrintOut;
 
        my $document = $Word->ActiveDocument->Read;
 
 
     my $text = $document->TypeText;
 
     print "$text\n";

Je suppose la méthode read correcte perl ne produisant pas d'erreur

, par contre TypeText est faut car c'est la méthode pour écrire du texte et non pour lire le texte du document

**chostrama** · 01/10/2005, 14h39

Envoyé par shinux2004

Est il possible d'utiliser Open Office avec perl , pour effectuer ces opérations ??

Il y a une suite de modules qui s'appelle OpenOffice::OODoc qui permet même de créer des docs OOo, et sans utiliser OOo. Cela permet surtout ( ama) d'utiliser XML::Twig pour manipuler les docs.

**shinux2004** · 01/10/2005, 15h07

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
use Win32::OLE;
use Win32::OLE::Enum;
 
$document = Win32::OLE->GetObject($ARGV[1]);
open (FH,">$ARGV[0]");
 
print "Extracting Text ...\n";
 
$paragraphs = $document->Paragraphs();
$enumerate = new Win32::OLE::Enum($paragraphs);
while(defined($paragraph = $enumerate->Next()))
    {
    $style = $paragraph->{Style}->{NameLocal};
    print FH "+$style\n";
    $text = $paragraph->{Range}->{Text};
    $text =~ s/[\n\r]//g;
    $text =~ s/\x0b/\n/g;
    print FH "=$text\n";
    }