(Perl) Call a JavaScript Function Returning an Object

See more JavaScript Examples

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

# This is the JavaScript function we'll call:

# function getSettings() {
#     return {
#         theme: "dark",
#         notifications: true,
#         version: 1.0
#     };
# }

$sbScript = chilkat::CkStringBuilder->new();
$sbScript->Append("function getSettings() {");
$sbScript->Append("    return {");
$sbScript->Append("        theme: \"dark\",");
$sbScript->Append("        notifications: true,");
$sbScript->Append("        version: 1.0");
$sbScript->Append("    };");
$sbScript->Append("}");

$js = chilkat::CkJs->new();

$result = chilkat::CkJsonObject->new();
$result->put_EmitCompact(0);

# Call Eval to add the function to the context's global object
$success = $js->Eval($sbScript,$result);
if ($success == 0) {
    # Examine the result for an exception.
    print $result->emit() . "\r\n";

    # Also examine the LastErrorText.
    print $js->lastErrorText() . "\r\n";
    exit;
}

# ------------------------------------------------------------------------------
# Call the function getSettings()

$funcCall = chilkat::CkJsonObject->new();

# Create JSON specifying the function name and arguments
# The function has no arguments, so we only specify the name.

# {
#   "name": "getSettings",
# }

$funcCall->UpdateString("name","getSettings");

$success = $js->CallFunction($funcCall,$result);
if ($success == 0) {
    # Examine the result for an exception.
    print $result->emit() . "\r\n";

    # Also examine the LastErrorText.
    print $js->lastErrorText() . "\r\n";
    exit;
}

print $result->emit() . "\r\n";

# Output:
# {
#   "type": "object",
#   "value": {
#     "theme": "dark",
#     "notifications": true,
#     "version": 1
#   }
# }

# Examine the object's members
print "theme: " . $result->stringOf("value.theme") . "\r\n";
print "notifications: " . $result->BoolOf("value.notifications") . "\r\n";
print "version: " . $result->IntOf("value.version") . "\r\n";

# Output:
# theme: dark
# notifications: True
# version: 1