Discussion :

[Jasmine80]

Voici mon script

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
#!/usr/bin/perl
 
#--------------------------- *Concat_sequences.pl 
 
use strict;
use warnings;
 
use FileHandle;
 
use Win32::OLE;
use Win32::OLE::Enum;
 
 
 
my $gene = 'HLC';
 
my $dir = 'P:/Theorie/ELODIE/dendrogramme_purA_pts_HLC/Sequences';
my $fh = FileHandle->new(">$dir/${gene}/${gene}.doc");
close $fh;
 
 
 
# glob retourne le chemin complet vers le fichier
my @files = grep { !/^\.\.?$/ } glob($dir."/${gene}/*.doc");
 
 
foreach my $input_file (@files){
 
	my $document = Win32::OLE -> GetObject($input_file);
 
	my $paragraphs = $document->Paragraphs();
	my $enumerate = new Win32::OLE::Enum($paragraphs);
	while(defined(my $paragraph = $enumerate->Next())){
		# my $style = $paragraph->{Style}->{NameLocal};
		# print "+$style\n";
		my $text = $paragraph->{Range}->{Text};
		if ($text =~ m/^\w+$/){
			print "$text\n";
		}
	}
}

J'obtiens de MS Word l'erreur :

Impossible de démarrer le convertisseur mswrd632

Je suis obligée d'annuler ce message et mon script indique

Win32::OLE(0.1707) error 0x80004004: "Opération abandonnée" at Concat_sequences.pl line 29
eval {...} called at Concat_sequences.pl line 29
Can't call method "Paragraphs" on an undefined value at Concat_sequences.pl line 31.

Avez-vous une idée de ce que je dois faire?

Merci,

[Mr6]

A 1ère vue je dirais qu'il faut rajouter des tests, c'est pas super parlant comme ca je trouve ^^

Code :

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

1
2
3
4
5
6
7
8
foreach my $input_file (@files){
 
	my $document = Win32::OLE -> GetObject($input_file) or die "pb getobject : $!\n";
 
	my $paragraphs = $document->Paragraphs() or die "pb Paragraphs : $!\n";
	my $enumerate = new Win32::OLE::Enum($paragraphs) or die "pb enum : $!\n";
[.....]
}

@+
Mr6

[Jasmine80]

Sais-tu à quoi sert le convertisseur mswrd632? Est-il installé par défaut?

Tes 3 tests s'effectuent sans problème.


Ce qui est étrange est que si j'exécute le script sur un seul fichier, cela fonctionne. Par contre si, j'analyse plusieurs fichiers, cela bloque. Je vais essayer de trouver le fichier posant problème.

[Jasmine80]

J'obtiens l'erreur d'un de tes test :

Win32::OLE(0.1707) error 0x80004004: "Opération abandonnée" at Concat_sequences.pl line 31
eval {...} called at Concat_sequences.pl line 31
pb getobject :

[Jasmine80]

Je pense que le problème vient de fichier temporaire créer par Word, tel que

P:/Theorie/.../PUR/~$10B.doc

Je dois changer le grep du script afin de les éliminer.

[Jasmine80]

Voila, cela fonctionne grâce à :

Code :

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

my @files = grep { !/\$/ } glob($dir."/$gene/*.doc");

Merci pour ton aide.