Discussion :

[serge0934]

bonjour a tous,

comment peut-on récupérer le content-type d'un fichier? existe t'il une liste ?
un module ?

ex:
pour un PDF => 'application/PDF'
pour un gif => 'image/gif'

et pour les autres => .xml .pl .so

ci joint mon code:

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
 
  foreach my $efiles (@sfiles){
    my $fichier = $efiles->text;
    if ($fichier ne "" ) {
      ($k, $extension) = split(/\./, $fichier);
		  for($extension){
			      s/^\s+//;
			      s/\s+$//;
			      s/\s+/ /g;
		  }
 
      # Add the  file
      $msg->attach (
        Type => 'application/'.$extension,
        Path => $fichier,
        Filename => $fichier,
        Disposition => 'attachment'
      ) or die "Error adding $files $!\n";
      if ($mode_trace==1){print "attachement : $fichier \n"}
    }
  }

ce code fonctionne pour les PDF, Word, Excel, gif, jpeg ...
mais pas pour le xml !

[Jedai]

Note bien que si tu veux juste transmettre le fichier, application/octet-stream marchera pour la plupart des formats (binaires), sinon text/plain pour les formats textes (tu cherches des caractères de contrôle autre que \r et \n dans les 30 premiers octets, ça devrait suffire).

Sinon, si tu veux des types MIME plus précis, tu peux utiliser "file -i" si tu es sous Linux/Unix, ou, pour une solution multiplateforme, le module File::MimeInfo ou File::MimeInfo::Magic.

--
Jedaï

[serge0934]

merci (de nouveau ) jedai

tu es une vrai bible