modifying DCR from a perl script - special characters

maru

Hi,

I'm trying to modify a DCR using a perl script. My issue comes when i'm working with special characters (in this case Korean characters). I'm trying to update one field from a replicant and i'm only getting garbage characters.

I've got a global variable $pageTitle and i have tried several things that i've seen in some posts but it's still not working.

I have tried this:
1) $pageTitle = Encode::encode_utf8($pageTitleTemp);
2) $pageTitle = encode("utf8", $pageTitle);
3) $pageTitle = encode("iso-8859-1", decode("utf8", $pageTitle ));
4)
$def = "\n";

#Writing in the DCR
open (DCR, ">:encoding(UTF-8)", "$DCR_full_path");
binmode DCR, ":utf8";
print DCR $def;
print DCR $modDCR;
close DCR;

5) put this at the top of my script:
use open ':utf8';

binmode (STDOUT, ":utf8");
binmode (STDIN, ":utf8");
binmode (STDERR, ":utf8");

Is there something i'm missing or need to add to show these characters properly?

I'm working in TeamSite 6.7.1 SP1 in windows environment.

Thanks.

nipper

How are you determining that you are getting garbage ? Are you certain the browser you are working with has the Korean character set ? Have you applied the BOM to the output file ?

Andy

ErrorHeader.pdf

ValidPreview1inch.pdf