(Perl) Async Methods Returning an String

Demonstrates how to call an asynchronous method that returns a string. This example sends an HTTPS GET request to a URL and gets the HTML response.

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

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

# task is a Task
$task = $http->QuickGetStrAsync("https://www.chilkatsoft.com/helloWorld.html");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Start the background task.
$success = $task->Run();
if (!$success) {
    print $task->lastErrorText() . "\r\n";

    exit;
}

# The application is now free to do anything else
# while the email is being sent.

# For this example, we'll simply sleep and periodically
# check to see if the HTTPS GET if finished.
while ($task->get_Finished() != 1) {
    # Sleep 100 ms.
    $task->SleepMs(100);
}

# A finished task could be one that was canceled, aborted, or truly finished.  

# If the task was "canceled", it was canceled prior to actually starting.  This could
# happen if the task was canceled while waiting in a thread pool queue to be scheduled by Chilkat's
# background thread pool scheduler.  

# If the task was "aborted", it indicates that it was canceled while running in a background thread.  
# The ResultErrorText will likely indicate that the task was aborted.

# If the task "completed", then it ran to completion, but the actual success/failure of the method
# is determined by the result obtained via a GetResult* method.  (A "completed" task will
# have a StatusInt equal to 7.   If the task finished, but was not completed, then it must've
# been aborted or canceled:
if ($task->get_StatusInt() != 7) {
    print "Task did not complete." . "\r\n";
    print "task status: " . $task->status() . "\r\n";

    exit;
}

# The QuickGetStr method returns a string.  Therefore, after the task is finished,
# we can get the string result by calling GetResultString.  This is the return value had
# we called QuickGetStr synchronously.
$html = $task->getResultString();

print $html . "\r\n";