Discussion :

[vodevil]

Bonjour j'ai un gros soucie avec les accents, j'ai une page web qui appel un script CGI perl qui traite les données ce script envoie un mail au client jusque la tout vas bien sauf les accents .

é ce trouve transformer en

Code :

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

é

, j'ai tenté d'utilise Encode mais il n'est pas présent sur le serveur, la version de perl disponible est

5.00503

Voic comment je récupère les données envoyé par le client

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#====================================================================#
#                        Réception des données                       #
#====================================================================#
 
sub receivepost {
my %postdata;
my ($len,$d,$data,$nom,$valeur);
 
  if ($ENV{'REQUEST_METHOD'} =~ /post/i) {
    # Longueur de l envoi
    $len = $ENV{'CONTENT_LENGTH'};
    $data = '';
    # On lit les données envoyées
    if (read(STDIN,$data,$len) != $len) {
      # tout n est pas lu ... erreur de transmission
      print "Location: error.htm\n\n";
      die("Error reading 'POST' data\n") ;
    }
    # séparation de la chaine par paires
    foreach $d (split('&',$data)) {
      # séparer les paires nom=valeur
      ($nom,$valeur) = split('=',$d);
      $nom = url_decode($nom);
      $valeur = url_decode($valeur);
    #  $valeur = encode_entities($valeur);
      # ranger les paires dans %postdata
      $postdata{$nom} = $valeur;
    }
  }
  return %postdata ;
}
 
#====================================================================#
#                  Décodage des données transmise                    #
#====================================================================#
 
sub url_decode {
my $s = shift;
  $s =~ tr/+/ /;
  $s =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",oct("0x$1"))/ge;
  return $s;
}

j'invoque receivepost() comme ceci

Code :

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

1
2
3
4
5
if ($ENV{'REQUEST_METHOD'} =~ /post/i ) {
  my %form = receivepost();
 
 traitement ...
}

J'ai beau chercher je ne trouve pas de solution a ce problème d'accent
le mail est envoyé en iso-8859-1

Code :

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

1
2
3
  print MAIL "Mime-Version: 1.0\n";
  print MAIL "Content-Type: text/html; charset=ISO-8859-1\n";
  print MAIL "Content-Transfer-Encoding: 7-bit\n";

merci de votre aide

[lami20j]

Salut,

essaie

Code :

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

s/%([0-9A-Fa-f][0-9A-Fa-f])/chr hex $1/ge

lami20j

[vodevil]

Sa ne fonctionne toujours pas , par contre

Code :

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

$s =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",oct("0x$1"))/ge;

marche très bien si les caractères sont en

iso-8859-1

[lami20j]

Re,

Essaie pour voir

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
22
23
24
25
#! /usr/bin/perl
#
use warnings;
use strict;
 
print "Entrez un chaîne : ";
chomp(my $enter = <STDIN>);
 
sub encode {
        my $en = shift;
        $en =~ s/([^-a-f0-9_.!~*'()])/sprintf "%%%02X", ord($1)/gei;
        $en =~ tr/ /+/;
        return $en;
}
my $v = encode($enter);
sub decode {
        my $ch = shift;
        $ch =~ tr/+/ /;
        $ch =~ s/%([0-9a-z]{2})/chr(hex($1))/eig;
        return $ch;
}
my $test = decode ($v);
print "Initial: $enter\n";
print "Codé: $v\n";
print "Decodé: $test\n";

le résultat

Code :

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

1
2
3
4
5
lami20j@debian:~/forums/hardware$ perl accent.pl
Entrez un chaîne : é è ë ê à ù ö
Initial: é è ë ê à ù ö
Codé: %E9%20%E8%20%EB%20%EA%20%E0%20%F9%20%F6
Decodé: é è ë ê à ù ö