Perl

JavaScript console

See more JavaScript Examples

Demonstrates console output using Chilkat JavaScript. Perl

use chilkat();

$success = 0;

# This example demonstrates using the built-in console object.
# The Javascript run in this example is shown below.

# Load the JavaScript from a file.
$sbScript = chilkat::CkStringBuilder->new();
$success = $sbScript->LoadFile("qa_data/js_tests/test_console.js","utf-8");
if ($success == 0) {
    print $sbScript->lastErrorText() . "\r\n";
    exit;
}

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

# Run the JavaScript
# Results (not console output) go to result.
# Note: Eval returns the completion value of the script. This is generally the value of the last evaluated expression.
# In this case, the last evaluated expression is console.log which does not calculate a value. Therefore, it returns undefined.
$success = $js->Eval($sbScript,$result);
if ($success == 0) {
    print $sbScript->lastErrorText() . "\r\n";
    exit;
}

# We can look at the result, which is "undefined", which is normal and expected.
print $result->emit() . "\r\n";
# The result JSON is: {"type":"undefined","value":"undefined"}

# The console output is retrieved by calling ConsoleOutputSb
$sbOut = chilkat::CkStringBuilder->new();
$js->ConsoleOutputSb($sbOut);
print $sbOut->getAsString() . "\r\n";