Post to Twitter Using Perl

Salam,

cara paling mudah so far nak post ke twitter.com dari perl script.

guna module Net::Twitter::Lite dari cpan.

  
use Net::Twitter::Lite;

my $nt = Net::Twitter::Lite->new(
 consumer_key        => '',
 consumer_secret     => '',
 access_token        => '',
 access_token_secret => ''
);

my $result = eval { $nt->update("$tweettext") };
if($@){
 print "Problem when posting Ads to Twitter.com\n";
 print "$@\n";
}else{
 print "$result";
}

* untuk key & token boleh dapat dari twitter developer punya section. hanya pelu register kita punya apps.

goo.gl utk link pendek

Sebelum ni aku ingatkan url pendek@tiny url yg biasa org pakai tu kene register kat mana2 database or domain hosting. rupa2nya x perlu... mudah je nak buat.

seperti biasa aku pakai Perl/CGI. install module WWW::Shorten::Googl from search.cpan.org

use WWW::Shorten::Googl;
use WWW::Shorten 'Googl';

$short_url = makeashorterlink($long_url);

$long_url  = makealongerlink($short_url);

# Note - this function is specific to the Googl shortener
$stats = getlinkstats( $short_url );

SImple je kan... amat membantu bila nak post url dkt twitter..