Récupérer une pièce jointe XLS
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:
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
