Mikro-Blogging mit Net::Twitter

Achtung: Twitter verwendet seit 01.09.2010 OAuth. Damit ist dieser Beitrag hofnungslos veraltet.

Aktuelle Fassung: Mikro-Blogging mit Net::Twitter und OAuth

Net::Twitter von Chris Thompson bietet eine einfache Schnittstelle zum Mikro-Blogging-Dienst Twitter.

In diesem Beitrag wird kurz aufgezeigt, wie Status Updates, Anzeige der Tweets eines Feeds und eine einfache Schlagwortsuche mit Net::Twitter funktionieren.

Beispiel: Status update

#!/usr/local/bin/perl 
use strict;
use warnings;

use Net::Twitter;
use Dumpvalue;

my $username = 'test';
my $password = 'secret';

my $twit = Net::Twitter->new( username => $username,
                              password => $password,
                             ) or die $!;


	# Pruefen, ob Login klappt
$twit->verify_credentials() or die  $twit->get_error();


		# Status aktualisieren
		# Wenn der Text laenger als 140 Zeichen ist,
		# wird ohne Fehlermeldung abgeschnitten
my $tweet = $twit->update( "Net::Twitter Test!" ) or die $twit->get_error();

	# ID fuer Tweet ausgeben
print "Tweet-ID: ", $tweet->{id} , "\n"; 


	# Alle Werte der Datenstruktur $tweet ausgeben
my $dumper = new Dumpvalue;;
$dumper->dumpValue(\\$tweet);


	# Logout
$twit->end_session();

Beispiel: Tweets von anderen Usern anzeigen

In diesem Beispiel werden die aktuellen Tweets des Twitterfeed von PerlNews ausgegeben.

#!/usr/local/bin/perl 
use strict;
use warnings;

use Net::Twitter;

my $username = 'test';
my $password = 'secret';

my $twit = Net::Twitter->new( username=> $username,
                              password=> $password,
                            ) or die $!;


	# Pruefen, ob Login klappt
$twit->verify_credentials() or die  $twit->get_error();

	 # Tweets von perlfeed holen
my $results = $twit->user_timeline( { id => 'perlfeed', } )
		or die $twit->get_error();


foreach my $result ( reverse @$results ) {
	print $result->{text}, "\n"; 
	print $result->{created_at}, "\n"; 
}

$twit->end_session(