Re^2: how to calculate the facebook like in perl cgi

I have found this piece of code in a blog http://blogs.coldbuffer.com/how-to-get-facebook-fan-count I would like to do the same in perl
?php

require_once('facebook.php');

$facebook = new Facebook(array( 'appId' => 'your_app_id', 'secret' => 'your_app_secret', 'cookie' => true, ));

$result = $facebook->api(array( 'method' => 'fql.query', 'query' => 'select fan_count from page where page_id = your_page_id;' ));

$fb_fans = $result[0]'fan_count';
?>

Comment on Re^2: how to calculate the facebook like in perl cgi

Replies are listed 'Best First'.
Re^3: how to calculate the facebook like in perl cgi by Anonymous Monk on Jun 17, 2011 at 15:59 UTC
Facebook	[reply]
Re^4: how to calculate the facebook like in perl cgi by romy_mathew (Beadle) on Jun 17, 2011 at 16:45 UTC
Thanks for the Post saw an article in O'Reilly http://answers.oreilly.com/topic/1595-how-to-measure-facebook-activity-with-the-facebook-api-and-perl/ Am very new in perl and I tat code in the link actually giving error in my test file could you mind checking let us know if that actually work My main Idea is to get the like count i set up in my website	[reply]
Re^5: how to calculate the facebook like in perl cgi by Anonymous Monk on Jun 18, 2011 at 09:09 UTC
That script won't compile as-is, it is missing `use LWP::Simple qw' get ';` See perlintro and Modern Perl	[reply] [d/l]