(Perl) Emoji Tweet

Demonstrates posting a status update that includes an emoji character.

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

use chilkat();

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

# ----------------------------------------------------------------------
# This initial setup, which involves setting the OAuth1 properties and connecting
# to api.twitter.com, is only required once at the beginning.  Once connected, the same
# object instance may be re-used, and if necessary, it will automatically reconnect
# as needed.

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

$rest = chilkat::CkRest->new();
$oauth1 = chilkat::CkOAuth1->new();

$oauth1->put_ConsumerKey("TWITTER_CONSUMER_KEY");
$oauth1->put_ConsumerSecret("TWITTER_CONSUMER_SECRET");
$oauth1->put_Token($json->stringOf("oauth_token"));
$oauth1->put_TokenSecret($json->stringOf("oauth_token_secret"));
$oauth1->put_SignatureMethod("HMAC-SHA1");
$oauth1->GenNonce(16);

$rest->SetAuthOAuth1($oauth1,0);

$bAutoReconnect = 1;
$success = $rest->Connect("api.twitter.com",443,1,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# This ends the initial setup...
# ----------------------------------------------------------------------

# For this example, I've pre-created a text file containing two emoji
# characters (the "ghost" emoji, and a "face savouring delicious food" emoji).  
# This text file was saved using the utf-8 encoding.

# The utf-8 bytes for the ghost emoji are 0x9f 0x91 0xbb.  (Note: This is the utf-8
# representation that does not use surrogate pairs.)
# 
# The utf-8 bytes for the "face savouring delicious food" emoji are \xF0\x9F\x98\x8B.

$sbText = chilkat::CkStringBuilder->new();
$sbText->LoadFile("qa_data/txt/ghost_emoji.txt","utf-8");
$sbText->Prepend("Test tweet using two emoji chars: ");

# Send a tweet...
$rest->ClearAllQueryParams();
$rest->AddQueryParam("status",$sbText->getAsString());
$resp = $rest->fullRequestFormUrlEncoded("POST","/1.1/statuses/update.json");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

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

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

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