PerlScript/ASP: Unicode issue

SGVyZSdzIGEgZG9jdW1lbnQgY29udGFpbmluZyBzb21lIG5vbi1BU0NJSSB0 ZXh0Lg0KDQo8VW5p
Y29kZT4NCjxEZXV0c2NoPlPDvMOfZSDDlmRuaXMgc3RhdHQgw6RyZ2VyZW0g w5xiZWwuPC9EZXV0
c2NoPg0KPEZyYW56w7ZzaXNjaD5EJ2/DuSB2aWVudCBxdWUgw6dhIG0nZXN0 IMOpZ2FsPzwvRnJh
bnrDtnNpc2NoPg0KPEdyaWVjaGlzY2g+zqPPhM6/IDExLDYlIM63IM6xzr3O tc+BzrPOr86xIM+E
zr/OvSDOmc6/z43Ovc65zr88L0dyaWVjaGlzY2g+DQo8UnVzc2lzY2g+0KDQ tdCw0LvRjNC90LDR
jyDQv9C+0LPQvtC00LAg0LIg0JzQvtGB0LrQstC1PC9SdXNzaXNjaD4NCjwv VW5pY29kZT4NCg0K
DQpIZXJlJ3MgdGhlIFZCU3JpcHQvQVNQIHRoYXQgZ2VuZXJhdGVkIGl0Og0K DQo8JUAgbGFuZ3Vh
Z2U9dmJzY3JpcHQgY29kZXBhZ2U9NjUwMDEgJT4NCjwlDQpPcHRpb24gRXhw bGljaXQNCg0KRnVu
Y3Rpb24gTmV3RG9tKCkNCiAgICAgICAgU2V0IE5ld0RvbSA9IFNlcnZlci5D cmVhdGVPYmplY3Qo
ICJNc3htbDIuRE9NRG9jdW1lbnQuNi4wIiApDQpFbmQgRnVuY3Rpb24NCg0K RGltIGRvbVhtbCwg
ZG9tUmVzLCBuZDEsIHR4dA0KDQpTZXQgZG9tWG1sID0gTmV3RG9tDQpTZXQg ZG9tUmVzID0gTmV3
RG9tDQoNCmRvbVhtbC5sb2FkWE1MICI8VW5pY29kZS8+Ig0KDQpTZXQgbmQx ID0gZG9tWG1sLmNy
ZWF0ZUVsZW1lbnQoIkRldXRzY2giKQ0KU2V0IHR4dCA9IGRvbVhtbC5jcmVh dGVUZXh0Tm9kZSgi
U8O8w59lIMOWZG5pcyBzdGF0dCDDpHJnZXJlbSDDnGJlbC4iKQ0KZG9tWG1s LmRvY3VtZW50RWxl
bWVudC5hcHBlbmRDaGlsZCggbmQxICkuYXBwZW5kQ2hpbGQoIHR4dCApDQoN ClNldCBuZDEgPSBk
b21YbWwuY3JlYXRlRWxlbWVudCgiRnJhbnrDtnNpc2NoIikNClNldCB0eHQg PSBkb21YbWwuY3Jl
YXRlVGV4dE5vZGUoIkQnb8O5IHZpZW50IHF1ZSDDp2EgbSdlc3Qgw6lnYWw/ IikNCmRvbVhtbC5k
b2N1bWVudEVsZW1lbnQuYXBwZW5kQ2hpbGQoIG5kMSApLmFwcGVuZENoaWxk KCB0eHQgKQ0KDQpT
ZXQgbmQxID0gZG9tWG1sLmNyZWF0ZUVsZW1lbnQoIkdyaWVjaGlzY2giKQ0K U2V0IHR4dCA9IGRv
bVhtbC5jcmVhdGVUZXh0Tm9kZSgizqPPhM6/IDExLDYlIM63IM6xzr3Otc+B zrPOr86xIM+Ezr/O
vSDOmc6/z43Ovc65zr8iKQ0KZG9tWG1sLmRvY3VtZW50RWxlbWVudC5hcHBl bmRDaGlsZCggbmQx
ICkuYXBwZW5kQ2hpbGQoIHR4dCApDQoNClNldCBuZDEgPSBkb21YbWwuY3Jl YXRlRWxlbWVudCgi
UnVzc2lzY2giKQ0KU2V0IHR4dCA9IGRvbVhtbC5jcmVhdGVUZXh0Tm9kZSgi 0KDQtdCw0LvRjNC9
0LDRjyDQv9C+0LPQvtC00LAg0LIg0JzQvtGB0LrQstC1IikNCmRvbVhtbC5k b2N1bWVudEVsZW1l
bnQuYXBwZW5kQ2hpbGQoIG5kMSApLmFwcGVuZENoaWxkKCB0eHQgKQ0KDQpS ZXNwb25zZS5Db250
ZW50VHlwZSA9ICJ0ZXh0L3htbCINClJlc3BvbnNlLkNoYXJTZXQgICAgID0g IlVURi04Ig0KZG9t
WG1sLnNhdmUoIFJlc3BvbnNlICkNCiU+DQoNCg0KQW5kIGhlcmUncyB0aGUg ZHlzZnVuY3Rpb25h
bCBQZXJsU2NyaXB0IGNvZGUgSSBkZXJpdmVkIHRoZSBWQlNjcmlwdCB2ZXJz aW9uIGZyb206DQoN
CjwlQCBsYW5ndWFnZT1wZXJsc2NyaXB0IGNvZGVwYWdlPTY1MDAxICU+DQo8 JQ0KdXNlIHN0cmlj
dDsNCnVzZSB3YXJuaW5nczsNCiMgdXNlIHV0Zjg7ICMgbWVzc2VzIHVwIEdl cm1hbiBhbmQgRnJl
bmNoIGFzIHdlbGwNCnVzZSBXaW4zMjo6T0xFOw0KdXNlIGNvbnN0YW50IERP TUNMQVNTID0+ICJN
c3htbDIuRE9NRG9jdW1lbnQuNi4wIjsNCm91ciggJFNlcnZlciwgJFJlc3Bv bnNlLCAkUmVxdWVz
dCApOw0KbXkgJU9MRW9wdGlvbnMgPSAoIFdhcm4gPT4gMyApOw0KIyAkT0xF b3B0aW9uc3tDUH0g
PSBXaW4zMjo6T0xFOjpDUF9VVEY4OyAjIG5vIGVmZmVjdA0KV2luMzI6Ok9M RS0+T3B0aW9uKCAl
T0xFb3B0aW9ucyApOw0KDQpzdWIgTmV3RG9tIHsgcmV0dXJuIFdpbjMyOjpP TEUtPm5ldyggRE9N
Q0xBU1MgKSB9DQoNCm15KCAkZG9tWG1sLCAkZG9tUmVzLCAkbmQxLCAkdHh0 ICk7DQoNCiRkb21Y
bWwgPSBOZXdEb207DQokZG9tUmVzID0gTmV3RG9tOw0KDQokZG9tWG1sLT5s b2FkWE1MKCAiPFVu
aWNvZGUvPiIgKTsNCg0KJG5kMSA9ICRkb21YbWwtPmNyZWF0ZUVsZW1lbnQo IkRldXRzY2giKTsN
CiR0eHQgPSAkZG9tWG1sLT5jcmVhdGVUZXh0Tm9kZSgiU8O8w59lIMOWZG5p cyBzdGF0dCDDpHJn
ZXJlbSDDnGJlbC4iKTsNCiRkb21YbWwtPmRvY3VtZW50RWxlbWVudC0+YXBw ZW5kQ2hpbGQoICRu
ZDEgKS0+YXBwZW5kQ2hpbGQoICR0eHQgKTsNCg0KJG5kMSA9ICRkb21YbWwt PmNyZWF0ZUVsZW1l
bnQoIkZyYW56w7ZzaXNjaCIpOw0KJHR4dCA9ICRkb21YbWwtPmNyZWF0ZVRl eHROb2RlKCJEJ2/D
uSB2aWVudCBxdWUgw6dhIG0nZXN0IMOpZ2FsPyIpOw0KJGRvbVhtbC0+ZG9j dW1lbnRFbGVtZW50
LT5hcHBlbmRDaGlsZCggJG5kMSApLT5hcHBlbmRDaGlsZCggJHR4dCApOw0K DQokbmQxID0gJGRv
bVhtbC0+Y3JlYXRlRWxlbWVudCgiR3JpZWNoaXNjaCIpOw0KJHR4dCA9ICRk b21YbWwtPmNyZWF0
ZVRleHROb2RlKCLOo8+Ezr8gMTEsNiUgzrcgzrHOvc61z4HOs86vzrEgz4TO v869IM6Zzr/Pjc69
zrnOvyIpOw0KJGRvbVhtbC0+ZG9jdW1lbnRFbGVtZW50LT5hcHBlbmRDaGls ZCggJG5kMSApLT5h
cHBlbmRDaGlsZCggJHR4dCApOw0KDQokbmQxID0gJGRvbVhtbC0+Y3JlYXRl RWxlbWVudCgiUnVz
c2lzY2giKTsNCiR0eHQgPSAkZG9tWG1sLT5jcmVhdGVUZXh0Tm9kZSgi0KDQ tdCw0LvRjNC90LDR
jyDQv9C+0LPQvtC00LAg0LIg0JzQvtGB0LrQstC1Iik7DQokZG9tWG1sLT5k b2N1bWVudEVsZW1l
bnQtPmFwcGVuZENoaWxkKCAkbmQxICktPmFwcGVuZENoaWxkKCAkdHh0ICk7 DQoNCiRSZXNwb25z
ZS0+e0NvbnRlbnRUeXBlfSA9ICJ0ZXh0L3htbCI7DQokUmVzcG9uc2UtPntD aGFyU2V0fSAgICAg
PSAiVVRGLTgiOw0KJGRvbVhtbC0+c2F2ZSggJFJlc3BvbnNlICk7DQolPg0K DQoNClZCUyBnZW5l
cmF0ZXMgYSBwZXJmZWN0IGRvY3VtZW50LCBidXQgbXkgUGVybFNjcmlwdC1B U1AgbWVzc2VzIHVw
IEdyZWVrIGFuZCBSdXNzaWFuLg0KDQo8VW5pY29kZT4NCjxEZXV0c2NoPlPD vMOfZSDDlmRuaXMg
c3RhdHQgw6RyZ2VyZW0gw5xiZWwuPC9EZXV0c2NoPg0KPEZyYW56w7ZzaXNj aD5EJ2/DuSB2aWVu
dCBxdWUgw6dhIG0nZXN0IMOpZ2FsPzwvRnJhbnrDtnNpc2NoPg0KPEdyaWVj aGlzY2g+U3Q/IDEx
LDYlID8gYT9lPz8/YSB0Pz8gPz8/Pz8/PC9HcmllY2hpc2NoPg0KPFJ1c3Np c2NoPj8/Pz8/Pz8/
ID8/Pz8/PyA/ID8/Pz8/PzwvUnVzc2lzY2g+DQo8L1VuaWNvZGU+DQoNCldo YXQncyB3cm9uZyB3
aXRoIG15IGNvZGU/IE9yIGFtIEkgcnVubmluZyBpbnRvIHNvbWUgUGVybFNj cmlwdCBlbmdpbmUg
b3IgQ09NIGludGVyb3AgbGltaXRhdGlvbj8NCg0KSSBub3RlZCB0aGF0IHRo ZSBlbmdpbmUgYXBw
ZWFycyB0byBtYXAgYWxwaGEsIGVwc2lsb24sIHNpZ21hIGFuZCB0YXUgdG8g dGhlaXIgbGF0aW4g
ZXF1aXZhbGVudHMgKHdoaWNoIGlzIGFyZ3VhYmx5IHRoZSB3cm9uZyB0aGlu ZyB0byBkbyksIGJ1
dCBmYWlscyB0byBkbyBzbyBmb3IgdGhlIHJlc3Qgb2YgdGhlIEdyZWVrIGFs cGhhYmV0OyB3aGVy
ZWFzIHRoZSBDeXJpbGxpYyBhbHBoYWJldCBzZWVtcyB0byBmYWxsIGludG8g Y29tcGxldGUgYW5k
IGNvbnNpc3RlbnQgaWdub3JhbmNlLg0KDQpPa2F5LCBzb3JyeSBmb3IgdGhl IGxvbmctd2luZGVk
IFhNTCBleGFtcGxlcyAobWF5YmUgdGhleSdsbCBiZSB1c2VmdWwgZm9yIGZ1 dHVyZSBnZW5lcmF0
aW9ucyk7IEkgc3RyaXBwZWQgZG93biB0aGUgZXhhbXBsZSB0byBwbGFpbiB0 ZXh0LCB3aGljaCBl
eHBvc2VzIHRoZSBwcm9ibGVtOg0KDQo8JUAgbGFuZ3VhZ2U9cGVybHNjcmlw dCBjb2RlcGFnZT02
NTAwMSAlPg0KPCUNCnVzZSBzdHJpY3Q7DQp1c2Ugd2FybmluZ3M7DQojIHVz ZSB1dGY4OyAjIG1l
c3NlcyB1cCBHZXJtYW4gYW5kIEZyZW5jaCBhcyB3ZWxsDQpvdXIgJFJlc3Bv bnNlOw0KDQpteSAk
dHh0ID0gJyc7DQokdHh0IC49ICJTw7zDn2Ugw5ZkbmlzIHN0YXR0IMOkcmdl cmVtIMOcYmVsLlxu
IjsNCiR0eHQgLj0gIkQnb8O5IHZpZW50IHF1ZSDDp2EgbSdlc3Qgw6lnYWw/ XG4iOw0KJHR4dCAu
PSAizqPPhM6/IDExLDYlIM63IM6xzr3Otc+BzrPOr86xIM+Ezr/OvSDOmc6/ z43Ovc65zr9cbiI7
DQokdHh0IC49ICLQoNC10LDQu9GM0L3QsNGPINC/0L7Qs9C+0LTQsCDQsiDQ nNC+0YHQutCy0LUi
Ow0KDQokUmVzcG9uc2UtPntDb250ZW50VHlwZX0gPSAidGV4dC9wbGFpbiI7 DQokUmVzcG9uc2Ut
PntDaGFyU2V0fSAgICAgPSAiVVRGLTgiOw0KJFJlc3BvbnNlLT5Xcml0ZSgg JHR4dCApOw0KJT4N
Cg0KDQpZaWVsZHM6DQoNClPDvMOfZSDDlmRuaXMgc3RhdHQgw6RyZ2VyZW0g w5xiZWwuDQpEJ2/D
uSB2aWVudCBxdWUgw6dhIG0nZXN0IMOpZ2FsPw0KU3Q/IDExLDYlID8gYT9l Pz8/YSB0Pz8gPz8/
Pz8/DQo/Pz8/Pz8/PyA/Pz8/Pz8gPyA/Pz8/Pz8NCg0KDQpBbnkgY2x1ZXM/ DQotLSANCk1pY2hh
ZWwgTHVkd2lnDQpfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19f
XwpBY3RpdmVQZXJsIG1haWxpbmcgbGlzdApBY3RpdmVQZXJsQGxpc3RzZXJ2 LkFjdGl2ZVN0YXRl
LmNvbQpUbyB1bnN1YnNjcmliZTogaHR0cDovL2xpc3RzZXJ2LkFjdGl2ZVN0 YXRlLmNvbS9tYWls
bWFuL215c3Vicw==

RE: PerlScript/ASP: Unicode issue

PiBPa2F5LCBzb3JyeSBmb3IgdGhlIGxvbmctd2luZGVkIFhNTCBleGFtcGxl cyAobWF5YmUgdGhl
eSdsbCANCj4gYmUgdXNlZnVsIGZvciBmdXR1cmUgZ2VuZXJhdGlvbnMpOyBJ IHN0cmlwcGVkIGRv
d24gdGhlIA0KPiBleGFtcGxlIHRvIHBsYWluIHRleHQsIHdoaWNoIGV4cG9z ZXMgdGhlIHByb2Js
ZW06DQoNCltQZXJsU2NyaXB0IHNuaXBwZWRdDQoNCj4gU8O8w59lIMOWZG5p cyBzdGF0dCDDpHJn
ZXJlbSDDnGJlbC4NCj4gRCdvw7kgdmllbnQgcXVlIMOnYSBtJ2VzdCDDqWdh bD8NCj4gU3Q/IDEx
LDYlID8gYT9lPz8/YSB0Pz8gPz8/Pz8/DQo+ID8/Pz8/Pz8/ID8/Pz8/PyA/ ID8/Pz8/Pw0KDQpG
b3IgY29tcGxldGVuZXNzJyBzYWtlLCBoZXJlJ3MgdGhlIFZCU2NyaXB0IGVx dWl2YWxlbnQ6DQoN
CjwlQCBsYW5ndWFnZT12YnNjcmlwdCBjb2RlcGFnZT02NTAwMSAlPg0KPCUN Ck9wdGlvbiBFeHBs
aWNpdA0KRGltIHR4dA0KdHh0ICAgICAgICAgPSAiU8O8w59lIMOWZG5pcyBz dGF0dCDDpHJnZXJl
bSDDnGJlbC4iIF8NCiYgdmJOZXdMaW5lICYgIkQnb8O5IHZpZW50IHF1ZSDD p2EgbSdlc3Qgw6ln
YWw/IiBfDQomIHZiTmV3TGluZSAmICLOo8+Ezr8gMTEsNiUgzrcgzrHOvc61 z4HOs86vzrEgz4TO
v869IM6Zzr/Pjc69zrnOvyIgXw0KJiB2Yk5ld0xpbmUgJiAi0KDQtdCw0LvR jNC90LDRjyDQv9C+
0LPQvtC00LAg0LIg0JzQvtGB0LrQstC1IiBfDQomIHZiTmV3TGluZQ0KDQpS ZXNwb25zZS5Db250
ZW50VHlwZSA9ICJ0ZXh0L3BsYWluIg0KUmVzcG9uc2UuQ2hhclNldCAgICAg PSAiVVRGLTgiDQpS
ZXNwb25zZS5Xcml0ZSB0eHQNCiU+DQoNCg0KWWllbGRzIHRoZSBjb3JyZWN0 IHJlc3VsdDoNCg0K
U8O8w59lIMOWZG5pcyBzdGF0dCDDpHJnZXJlbSDDnGJlbC4NCkQnb8O5IHZp ZW50IHF1ZSDDp2Eg
bSdlc3Qgw6lnYWw/DQrOo8+Ezr8gMTEsNiUgzrcgzrHOvc61z4HOs86vzrEg z4TOv869IM6Zzr/P
jc69zrnOvw0K0KDQtdCw0LvRjNC90LDRjyDQv9C+0LPQvtC00LAg0LIg0JzQ vtGB0LrQstC1DQoN
Ci0tIA0KTWljaGFlbCBMdWR3aWcNCl9fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19f
X19fX19fX19fX19fCkFjdGl2ZVBlcmwgbWFpbGluZyBsaXN0CkFjdGl2ZVBl cmxAbGlzdHNlcnYu
QWN0aXZlU3RhdGUuY29tClRvIHVuc3Vic2NyaWJlOiBodHRwOi8vbGlzdHNl cnYuQWN0aXZlU3Rh
dGUuY29tL21haWxtYW4vbXlzdWJz

RE: PerlScript/ASP: Unicode issue

> -----Original Message-----
> On Behalf Of Ludwig, Michael
> Sent: Friday, September 10, 2010 4:09 PM
> Subject: PerlScript/ASP: Unicode issue

> What's wrong with my code? Or am I running into some
> PerlScript engine or COM interop limitation?

I completely forgot to mention the problem constellation:

ActivePerl 5.12.1 with IIS 5.1 on XP Pro

I have this key in my registry:

HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlScript\1.0

Is it %ActivePerl%\bin\PerlSE.dll implementing PerlScript?

--
Michael Ludwig
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: PerlScript/ASP: Unicode issue

On Fri, 10 Sep 2010, Ludwig, Michael wrote:
>
> VBS generates a perfect document, but my PerlScript-ASP messes up
> Greek and Russian.

The problem is the PerlScript engine. It does not support source
code encoded in UTF-8; all sources will be converted into the
ANSI codepage before being passed to the Perl interpreter. So
any characters not in CP_ACP will already be replaced by '?' by
the time the Perl parser reads the code. There is nothing you
can do at the Perl level to get it working, as the replacement
character business is not reversible (many different characters
all get mapped to the same replacement character).

The only ways around it are to use \x{....} to specify the Unicode
codepoints in hex, or \N{...} to use codepoint names. Alternatively
you could read the text from an external file at runtime, but that
pretty much doesn't fit the ASP style to mix everything in a single
file.

Cheers,
-Jan


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: PerlScript/ASP: Unicode issue

On Fri, 10 Sep 2010, Ludwig, Michael wrote:
> Is it %ActivePerl%\bin\PerlSE.dll implementing PerlScript?

Yes. There isn't anything you can do with it directly though; it is a
registered COM component that must be instantiated via COM as an ActiveX
Scripting Engine... All scripting hosts (e.g. ASP, WSH, ...) will find
it via the registry settings by its name "PerlScript".

Cheers,
-Jan

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: PerlScript/ASP: Unicode issue

> -----Original Message-----
> From: Jan Dubois
> On Fri, 10 Sep 2010, Ludwig, Michael wrote:
> >
> > VBS generates a perfect document, but my PerlScript-ASP messes up
> > Greek and Russian.
>
> The problem is the PerlScript engine. It does not support
> source code encoded in UTF-8; all sources will be converted
> into the ANSI codepage before being passed to the Perl
> interpreter. So any characters not in CP_ACP will already be
> replaced by '?' by the time the Perl parser reads the code.
> There is nothing you can do at the Perl level to get it
> working, as the replacement character business is not
> reversible (many different characters all get mapped to the
> same replacement character).

Thanks. That statement is as clear as can be. Once we know
what's up it's easier to deal with it.

> The only ways around it are to use \x{....} to specify the
> Unicode codepoints in hex, or \N{...} to use codepoint names.
> Alternatively you could read the text from an external file
> at runtime, but that pretty much doesn't fit the ASP style to
> mix everything in a single file.

My example was just that, an example. The external file
alternative fits my intended setup more closely. I only
wanted to know what can work and what won't. Thanks!

Best,

Michael Ludwig
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: PerlScript/ASP: Unicode issue

> -----Original Message-----
> From: Jan Dubois
> On Fri, 10 Sep 2010, Ludwig, Michael wrote:
> > Is it %ActivePerl%\bin\PerlSE.dll implementing PerlScript?
>
> Yes. There isn't anything you can do with it directly
> though; it is a registered COM component that must be
> instantiated via COM as an ActiveX Scripting Engine... All
> scripting hosts (e.g. ASP, WSH, ...) will find it via the
> registry settings by its name "PerlScript".

HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PerlScript
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PerlScript\CLSID

The latter key contains:

(Standard) REG_SZ {F8D77580-0F09-11d0-AA61-3C284E000000}

Which is probably the means to locate the DLL?

Michael
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: PerlScript/ASP: Unicode issue

> -----Original Message-----
> On Behalf Of Ludwig, Michael
> Subject: PerlScript/ASP: Unicode issue

> And here's the dysfunctional PerlScript code I derived the
> VBScript version from:
>
> <%@ language=perlscript codepage=65001 %>
> <%
> use strict;
> use warnings;
> # use utf8; # messes up German and French as well
> use Win32::OLE;
> use constant DOMCLASS => "Msxml2.DOMDocument.6.0";
> our( $Server, $Response, $Request );
> my %OLEoptions = ( Warn => 3 );
> # $OLEoptions{CP} = Win32::OLE::CP_UTF8; # no effect
> Win32::OLE->Option( %OLEoptions );

One clarification for the archives:

While the effect of Win32::OLE->Option(CP => Win32::OLE::CP_UTF8)
was overridden in this case by the PerlScript engine eliminating
all characters not in ANSI (CP_ACP), as Jan explained in one of
his replies, it's not at all true that this option does not have
an effect in the general case as implied by my code sample; on
the contrary, it does work, and is essential for Unicode text
processing.
--
Michael Ludwig
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: PerlScript/ASP: Unicode issue

On Mon, 13 Sep 2010, Ludwig, Michael wrote:
> > -----Original Message-----
> > On Behalf Of Ludwig, Michael
> > Subject: PerlScript/ASP: Unicode issue
>
> > And here's the dysfunctional PerlScript code I derived the
> > VBScript version from:
> >
> > <%@ language=perlscript codepage=65001 %>
> > <%
> > use strict;
> > use warnings;
> > # use utf8; # messes up German and French as well
> > use Win32::OLE;
> > use constant DOMCLASS => "Msxml2.DOMDocument.6.0";
> > our( $Server, $Response, $Request );
> > my %OLEoptions = ( Warn => 3 );
> > # $OLEoptions{CP} = Win32::OLE::CP_UTF8; # no effect
> > Win32::OLE->Option( %OLEoptions );
>
> One clarification for the archives:
>
> While the effect of Win32::OLE->Option(CP => Win32::OLE::CP_UTF8)
> was overridden in this case by the PerlScript engine eliminating
> all characters not in ANSI (CP_ACP), as Jan explained in one of

That is not quite correct either. The part where the Perl source
code from .asp pages is turned into CP_ACP is an internal thing
inside the PerlScript implementation and does not involve Win32::OLE
at all. It is all C++ code calling into Windows API and COM code
directly.

> his replies, it's not at all true that this option does not have
> an effect in the general case as implied by my code sample; on
> the contrary, it does work, and is essential for Unicode text
> processing.


On Mon, 13 Sep 2010, Ludwig, Michael wrote:
>
> > -----Original Message-----
> > From: Jan Dubois
> > On Fri, 10 Sep 2010, Ludwig, Michael wrote:
> > > Is it %ActivePerl%\bin\PerlSE.dll implementing PerlScript?
> >
> > Yes. There isn't anything you can do with it directly
> > though; it is a registered COM component that must be
> > instantiated via COM as an ActiveX Scripting Engine... All
> > scripting hosts (e.g. ASP, WSH, ...) will find it via the
> > registry settings by its name "PerlScript".
>
> HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PerlScript
> HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PerlScript\CLSID
>
> The latter key contains:
>
> (Standard) REG_SZ {F8D77580-0F09-11d0-AA61-3C284E000000}
>
> Which is probably the means to locate the DLL?

Yes, using standard COM mechanisms, i.e. by looking up

HKEY_CLASSES_ROOT\CLSID\{F8D77580-0F09-11D0-AA61-3C284E00000 0}\InprocServer32

Cheers,
-Jan

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: PerlScript/ASP: Unicode issue

> -----Original Message-----
> From: Jan Dubois
> Subject: RE: PerlScript/ASP: Unicode issue

> > While the effect of Win32::OLE->Option(CP => Win32::OLE::CP_UTF8)
> > was overridden in this case by the PerlScript engine eliminating
> > all characters not in ANSI (CP_ACP), as Jan explained
>
> That is not quite correct either. The part where the Perl source code
> from .asp pages is turned into CP_ACP is an internal thing inside the
> PerlScript implementation and does not involve Win32::OLE at all. It
> is all C++ code calling into Windows API and COM code directly.

My bad wording - I should probably not have said "overridden", but
rather "preempted". What I got is that the Perl interpreter never gets
a chance to act on the original source code as it is preprocessed by
the PerlScript engine.

> > (Standard) REG_SZ {F8D77580-0F09-11d0-AA61-3C284E000000}
> >
> > Which is probably the means to locate the DLL?
>
> Yes, using standard COM mechanisms, i.e. by looking up
>
> HKEY_CLASSES_ROOT\CLSID\{F8D77580-0F09-11D0-AA61-3C284E00000 0}
> \InprocServer32

Thanks. Not yet familiar with that stuff, but I'll get there. :-)

Michael
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs