Discussion :

[sargei]

Bonjour,

J'ai un problème avec l'ouverture d'un fichier en PERL. Si le nom du fichier contient des accents, la commande open échoue:

open(JPEG,$filename) or print LOG "Cannot open JPG file : $filename\n";

Dans le LOG, le $filename contient bien le nom de fichier avec accents passé à la commande open.

Quelqu'un a-t-il une idée ?

[Schmorgluck]

Je viens de faire un test, et chez moi ça marche sans problème. Je n'en ai pas eu besoin, mais essaie donc avec use locale;, ça marchera peut-être mieux.

[sargei]

Merci de ta réponse mais cela ne fonctionne toujours pas

Je suis sous Windows en ActivePerl 5.8.8.817, c'est peut être la cause.

[djibril]

ce fichier a été crée par qui ? le contenu de la variable $filename est fourni par qui ? STDIN, ou bien c'est dans le script en dur ?

[sargei]

Effectivement le problème semble provenir de $FILENAME qui provient d'une recherche LDAP.

Si je fais un type log.txt dans une commande ms-dos j'ai un nom de fichier bizarre mais c'est correct en lisant ce fichier via notepad.

Il semble donc que l'encodage du serveur LDAP ne convienne pas à PERL.

Ci-dessous l'appel complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use Net::LDAP;
 
open (LOG,">log.txt");
my $mesg = $ldap->search (
                        base   => $LDAP_base_users,
                        filter => "(objectclass=frPerson)");
foreach my $entry ($mesg->entries)
{			
	my $FILENAME = $entry->get_value("photofilename");
 
	open(JPEG,$FILENAME ) or print LOG "Cannot open JPG file : $FILENAME "
 
.....
}

[djibril]

t'as testé avec le module Encode ?

Code :

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

1
2
3
4
5
 
use Encode;
...
my $FILENAME = $entry->get_value("photofilename");
$string = encode("utf8", $FILENAME );

[sargei]

Oui la log est la suivante :

Cannot open JPG file : H+â-®l+â-¿ne.JPG

Le nom correct est Hélène.jpg

[djibril]

si tu mets iso-8859-1 ? et ton script est en utf8 ou iso ?

[sargei]

J'ai le résultat suivant en iso-8859-1

Cannot open JPG file : H+â-®l+â-¿ne.JPG

Comment je fais pour savoir si mon script est en utf8 ou iso ?