Discussion :

[jeanphi974]

Bonjour,

je travaille sur un système Linux. J'ai une appli développé en perl qui récupère des mails et traite leur contenu.
Et je dois aussi gérer les piéces joints qui peuvent être des fichiers .dat ou .xls.
Je n'ai pas de pb avec les .dat, je peux récupérer facilement le contenu. Par contre avec les .xls c'est un peu plus compliqué. Le contenu reste toujours encodé.

Code développé:

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
my $parser = MIME::Parser->new;
    $parser->output_to_core('ALL');
 
	my $MIME_entity = $parser->parse_data($text);
	my $ascii1;
 
   	foreach my $elt_entity ($MIME_entity->parts_DFS) {
 
		if ($elt_entity->mime_type() eq "application/octet-stream") {	
			$ascii1 = $elt_entity->body_as_string();
			$ascii = MIME::Base64::decode($ascii1);
		}
 
		if ($elt_entity->mime_type() eq "application/vnd.ms-excel") {
			$ascii = $elt_entity->body_as_string();
		}
	}

Est-ce que quelqu'un aurait deja fait ce genre de travail ?
Il faut peut-etre récupérer le fichier xls et le mettre dans un répertoire temporaire et ensuite travailler son contenu, plutot que chercher à récupérer directement son contenu ?
Merci

[djibril]

Ton fichier xls doit etre traité à part via un module adéquat Spreadsheet-ParseExcel

[jeanphi974]

oui mais pour utiliser ce module, il me faut le fichier xls .
Comment je fais pour le créer et le mettre dans un répertoire ??

[jeanphi974]

bon apres avoir cherché, j'ai codé ca:

Code :

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

1
2
3
4
5
6
7
8
if ($elt_entity->mime_type() eq "application/vnd.ms-excel") {
	$ascii = $elt_entity->body_as_string();
	$ascii = MIME::Base64::decode($ascii);
	my $body1 = new MIME::Body::File "/tmp/test.xls";
	my $IO = $body1->open("w")      || die "open body: $!";
	$IO->print($ascii);
	$IO->close                  || die "close I/O handle: $!";
}

donc ca me crée mon fichier test.xls, mais le contenu n'est pas bon, il semble toujours encodé qd j'ouvre le xls.
Y aurait-il une manip particulière pour avoir un contenu décodé.
Ou faut-il le décoder avec Spreadsheet:arseExcel ??

Merci de m'aider si quelqu'un a des idées ...

[djibril]

Veuillez mettre vos codes sources sous balise code, merci!

[jeanphi974]

ah bon et comme ca tu penses que j'aurais le contenu de mon fichier xls décodé ...
je vais voir ca alors ...
merci

[djibril]

Mettre l code sous balise code permet que le code soit plus lisible sur le forum.
En ce qui concerne votre problème, je n'ai jamais utilisé le module MIME::Parser, mais il doit y avoir une méthode qui permette de mettre le fichier joint dans un répertoire quelconque.
Et ensuite, vous n'aurez plus qu'à lire et parser ce fichier via le module cité plus haut.