Hello everyone.

 

I've got a problem with displaying information that I retrieve from Active Directory 
2003. For example, "C�cile" is displayed "Cécile", and all the special characters 
like �, �, �, �, etc. are badly displayed. So under ActivePerl 5.6.1, I do the 
following : 

 

sub unicode2latin1

{

            my $string = shift;

            

            use utf8;                                                            

            if ($string)

            {

                        $string =~ s/([\x{80}-\x{FFFF}])/'&#' . ord($1) . ';'/gse;

            }

            no utf8;

            

            return $string;

}

 

And it works perfectly, but under the last version of perl (5.8.3), this code doesn't 
work ! Any idea ?

 

Robert-Alexandre Hollinger

Reply via email to