Blog du metabaron

Recemment, pour un projet sur lequel je travaille, j'ai eu a traiter des emails contenant une piece jointe.
J'ai alors rencontre un probleme simple mais embetant: Certains mailer, comme Gmail de Google, envoient le mail en HTML et en TXT. Generalement, et c'est mon cas, lorsque l'on traite des emails, seule la partie TXT est utile car vous ne souhaitez pas avoir a gerer toutes les balises HTML.

Donc, pour en revenir a Perl, je n'ai jamais trouve un code permettant de gerer facilement l'email et en extraire le texte ainsi que la piece jointe. J'ai bien trouve ce code sur le net (envoye par son auteur) mais il ne gere pas le cas d'un email venant de Google.

Je partage donc avec vous mon code en esperant que cela aide d'autres personnes:

#!/usr/bin/perl                                                                                                                               

use MIME::Parser;
### Store the content of the email here
my $Message;
### Create parser, and set some parsing options:                                                                                              
my $parser = new MIME::Parser;
### Store files here
$parser->output_dir("data");

### Parse input:                                                                                                                              
$entity = $parser->parse(\*STDIN) or die "parse failed\n";

### Take a look at the top-level entity (and any parts it has):                                                                               
#$entity->dump_skeleton;                                                                                                                      

### Get preamble, parts, and epilogue:                                                                                                        
$preamble   = $entity->preamble;          ### ref to array of lines                                                                           
$num_parts  = $entity->parts;
$epilogue   = $entity->epilogue;          ### ref to array of lines                                                                           
### Get the head, a MIME::Head:                                                                                                               
$head = $entity->head;

### Get email subject
my $Subject = $head->get('Subject');
chomp($Subject);

### Path to image file and text file with the email content
my $image_file;
my $text_file;

### Browse through all email parts
for(my $i=0;$i<$num_parts;$i++){
    my $dealing_part=$entity->parts($i);
    my $entity_size=$dealing_part->parts;

### Email body, HTML and TXT
    if($entity_size!=0){
        for(my $j=0;$j<$entity_size;$j++){
            my $sub_entity=$dealing_part->parts($j);
            my $content_type = $sub_entity->mime_type;
### I don't want HTML, skip it
            if($content_type=~/htm/){
                next;
            }
            if($content_type=~/^text/){
                my $handler=$sub_entity->bodyhandle;
                $text_file=$handler->path;
### Remove signature from the email (look for "--")
                $sub_entity->remove_sig;
            }
        }
### When no multiple parts
    else{
        my $content_type=$dealing_part->mime_type;
### Image
        if($content_type=~/^image/){
            my $handler=$dealing_part->bodyhandle;
            $image_file=$handler->path;
        }elsif($content_type=~/^text/){
### Text
            my $handler=$dealing_part->bodyhandle;
            $text_file=$handler->path;
            $dealing_part->remove_sig;
        }else{
            next;
        }
    }
}
print "\nText: $text_file\nImage: $image_file\n";
open(FILE,$text_file);
while(<FILE>){
    next if /^$/;
    $Message.=$_."\n";
    next;
}
chomp($Message);
print "\nMessage:\n$Message\n";
$entity->purge;

De plus en plus de chaines francaises se mettent a la VOD pour toute ou partie de leurs programmes. Le probleme est d'acceder facilement aux videos sans avoir a rechercher sur tout le site.
Et bien, le site tvarevoir, encore en version beta, indexe toutes les videos des 8 grandes chaines francaises.