(Perl) Upload Media to Twitter

Demonstrates uploading image or video files to Twitter. After uploading, the media_id can be used to attach the uploaded media to a tweet.

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

use chilkat();

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

# Assume we've previously obtained an access token and saved it to a JSON file..
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/twitter.json");

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

# Provide the OAuth 1.0a credentials:
$http->put_OAuth1(1);
$http->put_OAuthConsumerKey("TWITTER_CONSUMER_KEY");
$http->put_OAuthConsumerSecret("TWITTER_CONSUMER_SECRET");
$http->put_OAuthToken($jsonToken->stringOf("oauth_token"));
$http->put_OAuthTokenSecret($jsonToken->stringOf("oauth_token_secret"));

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_ContentType("multipart/form-data");
$req->put_Path("/1.1/media/upload.json");

$req->AddHeader("Expect","100-continue");

# Add a JPEG image file to the upload.
$fac = chilkat::CkFileAccess->new();
$jpgBytes = chilkat::CkByteData->new();
$success = $fac->ReadEntireFile("qa_data/jpg/starfish.jpg",$jpgBytes);
$req->AddBytesForUpload("media","starfish.jpg",$jpgBytes);

# resp is a HttpResponse
$resp = $http->SynchronousRequest("upload.twitter.com",443,1,$req);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->put_EmitCompact(0);
$jsonResponse->Load($resp->bodyStr());

if ($resp->get_StatusCode() != 200) {
    print $jsonResponse->emit() . "\r\n";
    exit;
}

# Show the successful response:
print $jsonResponse->emit() . "\r\n";
print "Success." . "\r\n";

# A successful JSON response looks like this:

# 	{
# 	  "media_id": 793137045996646400,
# 	  "media_id_string": "793137045996646400",
# 	  "size": 6229,
# 	  "expires_after_secs": 86400,
# 	  "image": {
# 	    "image_type": "image\/jpeg",
# 	    "w": 120,
# 	    "h": 120
# 	  }
# 	}
# 

# Get the information from the JSON:
print "media_id_string = " . $jsonResponse->stringOf("media_id_string") . "\r\n";
print "size = " . $jsonResponse->IntOf("size") . "\r\n";
print "image_type = " . $jsonResponse->stringOf("image.image_type") . "\r\n";
print "height/width = " . $jsonResponse->IntOf("image.w") . "," . $jsonResponse->IntOf("image.h") . "\r\n";