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..

Trip Ke Perak Oct 2011

Terlanjur ada kerja sikit di perak & akak ada voucher percuma stay di Bukit Merah Lake Town Resort, aku bawak sekali wife & anak2 + adik ipar aku yg baru abis PMR.

lebih kurang 700KM gak la total perjalanan. tu pun bertambah sebab ada plan terkejut menyimpang ke Cameron Highlands. Seumur hidup ni la kali pertama menjejakkan kaki ke Cameron Highlands.

Sebelum sampai Bukit Merah, sempat gak la menyinggha ke kuala sepetang untuk mencuba Mee Udang yg femes tu.

Bukit Merah Lake Town Resort, tempat OK... but tak segah namanya la... pada aku la.... but anak2 have fun dkt waterpark (even waterpark aku rasa better lg Bukit Gambang).

post berikut nya nanti aku postkan gambar2 yg kami snap sepanjang trip terkejut kali ni.

Penat gak la... sampai hari khamis tu dah mlm... hehehhee...

Javascript: Detect if inside iframe

Simple javascript untuk detect samaada page berada didalam iframe.

if(top != self) {
     alert('your inside frame');
}

PerlMagick: Annotate slow when query font

Aku facing masalah slow processing bila bermain dgn Annotate under ImageMagick.

pening gak cari punca masalah ni... tapi last sekali jumpa. berpunca dari imagemagick nak query font.

solution, define terus path ke font file. baru kembali laju...

$image->Annotate(font => "/Library/Fonts/MyriadWebPro.ttf",pointsize=>15, text=>"$txt",geometry=>'+705+272');

* nak selamat, copy terus font file (*.ttf) ke working folder. so bila kita copy script ke machine or server lain. x la ada isu timbul bila font yg kita define tak ada dlm machine or server baru tu.

Wordless Wenesday #2

Sambal Belacan

MInggu lepas kami berkumpul adik beradik. Abg Tapa nak kahwinkan anak dia. mlm sebelum majlis kami tidur di rumah kak Ani, Tak la jauh sgt dr rumah Abg Tapa, dipisahkan sebuah taman perumahan sahaja.

Selepas membantu mlm tu kami ke rumah kak Ani. sebelum tidur sembang-sembang dgn kak Maya, Kak Gee, Abah & anak2 buah yg lain. mak tido rumah abgtapa mlm tu.

Dgn teh O & Teh Tarik kak Ani buat kami menyembang la sambil menghabiskan sup daging yg dibekalkan abg Tapa td nya.

sembang punya sembang sampai la topik mimpi. hahahahaha... keluarla cerita mimpi abah sebelum ni...

Mak mengadu, bangun-bangun tido abah nampak mcm marah kat mak. mula2 bila mak tanya abah ckp x de apa2. tapi kalau dah suami isteri mesti sedar punya kalau ada apa2 yg lain dgn pasangan kita. akhirnya abah pun bukak mulut.

sebenornya, Abah mimpi mlm sebelumnya. dlm mimpi tu abah ckp kat mak... (lebih kurang mcm ni la citernya.. tapi ayat may be x sama la..)

"Kalau dapat makan sambal belacan mesti sedap ni..." kata abah...

"Ye sedap, tinggal makan.. tak keluar modal..bla..bla..bla.." kata mak pulak..

Abah punya sentap dgr ayat dari mak tu terus merajuk sampai kat alam nyata... padahal perbualan tu hanya dlm mimpi abah jer...

tu yang sampai pagi tu abah merajuk dgn mak... hahahahahahahahaha..... mak tak tau nak ckp apa... hehehehehhee

kadang2 mimpi ni bahaya gak kan... boleh mendatangkan kesan hingga ke alam nyata.

kami yg mendengar mlm tu pakat gelak x hingat... lepas tu start la keluar cerita pasal mimpi yg lain... dkat kul 2 pg baru kami bersurai g tido.. sebab esok nya nak kene bangun pagi antar org nak menikah... hahahhahahaha

Apapun.. nasib baik mimpi sahaja... Abah & Mak ok jer...

Sayang Mak & Abah sgt-sgt.