(Perl) Twitter OAuth -- Tweet to Your Own Account

Demonstrates how to send a tweet (status update) to your own Twitter account using pre-known credentials, which includes:

1. Consumer Key
2. Consumer Secret
3. Access Token
4. Token Secret

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

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

use chilkat();

$success = 0;

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

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

$http->put_OAuth1(1);
$http->put_OAuthVerifier("");
$http->put_OAuthConsumerKey("my-consumer-key");
$http->put_OAuthConsumerSecret("my-consumer-secret");
$http->put_OAuthToken("my-access-token");
$http->put_OAuthTokenSecret("my-token-secret");

# Send the same status update as shown in this example:
# https://dev.twitter.com/docs/api/1.1/post/statuses/update

# IMPORTANT: Make sure this app has read/write access.  
# Otherwise it cannot post an update (i.e. tweet) to the Twitter account.

$req = chilkat::CkHttpRequest->new();
$req->AddParam("status","Maybe he'll finally find his keys. #peterfalk");

$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq("https://api.twitter.com/1.1/statuses/update.json",$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

if ($resp->get_StatusCode() == 200) {
    # Display the JSON response.
    print $resp->bodyStr() . "\r\n";
}
else {
    print $http->lastErrorText() . "\r\n";
}