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 ?

[djibril]

c'est ton éditeur de texte. Tu travail sous quelle éditeur ?

[sargei]

notepad++

Si j'(ouvre le script, il me met ANSI comme format

[djibril]

essaye de le changer en iso par exemple.
Moi mes scripts sont toujours en utf8 par habitude.

[sargei]

Ca ne change rien

[Jedai]

Dis nous ce que le code suivant te donnes :

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
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");
  (my $nums = $filename) =~ s/(.)/" " . ord $1/eg;
 
  open JPEG, '<', $filename 
    or print LOG "Cannot open JPG file : $nums "
 
}

--
Jedaï

[Jedai]

Bon, je pourrais essayer d'expliquer le problème, bien que je ne puisse être certain en l'absence de ta réponse. En fait l'origine du problème est dans Net::LDAP : je parie que tu n'as pas renseigné l'argument 'raw' dans la création de $ldap, dans ce cas $ldap traite toutes les chaînes qu'il récupère comme du binaire. La solution correcte serait de renseigner raw pour qu'il ne traite que les données binaires (si tu en as) comme du binaire et le reste comme du texte en utf8.
Ainsi les chaînes que $ldap renverrait serait dans l'encodage interne de Perl et ce dernier saurait comment les utiliser pour par exemple ouvrir le bon fichier.
Il y a également une solution temporaire et incomplète qui à appeler decode_utf8() sur le nom de fichier renvoyé par LDAP.
En effet, encode() n'est pas la fonction correcte dans ton cas, elle fonctionne pour traduire du format interne de Perl vers du binaire brut, decode() au contraire prends du binaire brut et le convertit vers le format interne de Perl.

--
Jedaï

[djibril]

Merci pour ta réponse jedai, en espérant qu'on en aura de Mr sargei