• 
  • Front
  • Gallery
  • Search
  • Info
  • Blog
  • Me

Friendfeed:

From Twitter
@mkeats Don't give up, there's a lot of experimentation, but it's worth it when you get it right :)

From Twitter
@mkeats Yeah - the quantities involved are too small. I bought some that measure down to .01g on ebay for a fiver.

From Twitter
.@mkeats Oh noes! Try the open source molecular gastronomy cookbook: http://bit.ly/d0Bnm2

From Twitter
I'm at Selfridges & Co (400 Oxford Street, London).

From Twitter
Why had I not seen @donttrythis's TED talk before? http://www.ted.com/talks/lang/eng/adam_savage_s_obsessions.html What a guy :)

From Google Reader
Behold The 6880 Calorie Burger King Tower Of Meat

From Twitter
.@virorum I rather like Microsoft Pivot http://bit.ly/6zSlnF (watch the TED demo video). I love anything based on Seadragon :)

From Twitter
RT @TechCrunch: Blackboard Buys Mobile Messaging Company Saf-T-Net For $33 Million - http://tcrn.ch/9hTVOU by @leenarao

From Amazon.com
Intelligent Leadership

From Amazon.com
An Insider's Guide to 150 Spy Sites in London

« Nike+ Sportband Problems | Main | Barcelona Photos »

Ping.fm in Perl

Using the fabulous ping.fm? Want to use your own Custom URL? Want to use Perl? Use this!

The attached script takes only status updates from ping.fm and writes it out to a file. In my case, this file is then "included" by apache dynamically on the front page of my site.

Bit rough and ready, but hey, it only took 60 seconds :)

   1: #!/usr/bin/perl

   2:  

   3: use strict;

   4: use warnings;

   5:  

   6: use CGI qw/:standard/;

   7: use CGI::Carp 'fatalsToBrowser';

   8:  

   9: my $file = '/path/to/my/file.include';

  10:  

  11: open my $FH, '>', $file or die "Unable to open $file\n";

  12:  

  13: if ( param() ) {

  14:  

  15:        print header;

  16:        my $method = param('method');

  17:        my $title = param('title');

  18:        my $message = param('message');

  19:        

  20:        print $FH "$message";

  21:        

  22: }

  23:  

  24: else {

  25:  

  26:     print header;

  27:     #Do nothing

  28:     

  29: }

  30:  

  31: close $FH;

Posted by Alex on July 13, 2008 8:18 PM | Permalink

Tagged:
perl, ping.fm, socialnetworking

TrackBack

TrackBack URL for this entry:
http://www.aerobitches.co.uk/cgi-bin/mt-tb.cgi/558