[Perl] Module CGI, problème avec l'encodage du nom de fichier lors d'un upload

Dominique Asselineau asseline at telecom-paristech.fr
Ven 21 Avr 16:54:53 CEST 2017


Bonjour,

Avec le module CGI, version 4.09 packagée Debian Jessie (Debian stable),
il semble que le nom du fichier lors d'un upload et comportant des
caractères accentués, ne soit pas décodé, même dans les conditions
suivantes

use Modern::Perl;
use utf8;
use feature qw/unicode_strings/;
use CGI qw/-utf8/;

my $cgi = new CGI;
my $filePath = $cgi->param( 'cgiParam' );

# $filePath est alors en octets
# on ne peut le décoder tout de suite car l'opération suivante ne marcherait pas

my $contentType = $cgi->uploadInfo($filePath)->{'Content-Type'};

Il faut donc copier $filePath dans une version décoder pour pouvoir
manipuler la chaîne UTF-8.

Est-ce un bug ou ai-je raté quelque chose ?

Merci.

Dominique
-- 


Plus d'informations sur la liste de diffusion Perl