Greg csiripel

Mostanában divatba jött a Twitter. Annak ellenére, hogy viszonylag sok technikai problémával küzdenek, egyre népszerűbb a szolgáltatás. Sokan nem egészen értik mire is jó a szolgáltatás, de röviden arról szól a dolog, hogy megoszthatod a világgal, hogy éppen mit csinálsz.

Ezt egyszerű, rövid üzenetek formájában lehet megtenni, melyeket különböző eszközökről fogad a rendszer. Természetesen a legegyszerűbb a böngésző, de használható különböző PDA-al is, valamint SMS üzeneteket is küldhetünk. Ilyenkor jön csak elő a rendszer igazi ereje. Lehet tudósítani különböző családi eseményekről, összejövetelekről. Ha belegondolunk, akkor elég költséghatékony a dolog, mert egy SMS-el lerendezhetjük az egész családot és baráti társaságot.

De a programozók ennél sokkal pihentebbek, mindig felfedeznek valami érdekeset egy ilyen lehetőség kapcsán. Dean Wilson felfedezte a Net::Twitter CPAN modult és rögtön implementált egy ilyen kis szösszenetet:

#!/usr/bin/perl -w
  use strict;
  use warnings;
  use Net::Twitter;

  my $bot = Net::Twitter->new(
                              username => "username",
                              password => "password"
                             );

  chomp(my $doing = <>);
  $doing =~ s/^\s+\d+\s+//;

  $bot->update($doing);

Ezt a scriptet eltárolva egy twitter_post.pl nevű fájlban már csak a következő parancsot kell futtatni: PROMPT_COMMAND='history | tail -n 1 | /path/to/twitter_post.pl'

Persze fel kell tenni a Twitter modult is az alábbi módon: perl -MCPAN -e 'install Net::Twitter'

Ennek aztán az ismert kernel fejlesztő Greg Kroah Hartman sem tudott ellenállni és rögtön ki is próbálta, úgyhogy mi is követhetjük mit csinál éppen Greg. Én sem tudtam ellenállni egy próba erejéig megnéztem mit tud a Twitter.

Azért nem javaslom, hogy hosszútávon bárki is használja ezt a megoldást. Érzékeny információ kerülhetnek ki.