Re5: Creating Advanced Client-Side Applications With Perl

[dragonchild]

The question here, imho, isn't whether or not it's called. (Though, I don't think it is because putting in a $window->alert("It's me!"); doesn't pop up.) It's what mistake(s), if any, did I make in trascribing the JavaScript into PerlScript. PerlScript on the client-side is advertised as being identical to JavaScript, albeit with Perl's power. Where did I go wrong??

[Jenda]

One of the problems in your code is that this JavaScript

window.document.formname.fieldname.value = 5;

needs to be translated to this PerlScript:

$window->{document}->{formname}->{fieldname}->{value} = 5;

Notice the curlies! The second problem is that JavaScript looks for objects in more places. Eg. It's OK to write the code above like this:

document.formname.fieldname.value = 5;

since JavaScript searches through the properties of the active window object if it doesn't find a variable of that name. OTOH

$document->{frm2}->{code}->{value} = 5;

is not valid.

Likewise if I add <div id="foo" name="this is foo">Ahoj</div> into the page and run alert(foo) in JavaScript I get [object]. If I try to run alert($foo); in PerlScript I get nothing. I bet there is a way to get that object, but I don't know how.

Edit by castaway: Closed small tag in signature

[dragonchild]

Ahhhh ... I thought that Win32::OLE would actually AUTOLOAD methods that map to property names. Silly wabbit! Thanks!

[Jenda]

No it does not. Which is particularly annoying if you are converting some VB(Script) examples to Perl. In JavaScript you may distinguish between a function call and property access (function calls always have braces, even if you do not want to pass any parameters) but there is no such distinction in VB(Script) :-(

Edit by castaway: Closed small tag in signature