Frank IT Consulting&Training

In den letzten Wochen habe ich für unterschiedliche Kunden und Projekte diverse Twitter-Anbindungen entwickelt. Zu PHP gibt es viele Anleitungen, aber da ich cronjob-basierte Scripts traditionell gerne in Perl schreibe und viele Anfragen dazu hatte (insbesondere wegen dem Projekt kulturgezwitscher) hier ein kurzes Tutorial, wie man eine direct message senden kann:

Ich verwende LWP::User Agent mit folgenden Einstellungen:

#!/usr/bin/perl
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

#sinnvolle LWP Settings – aber nicht unbedingt notwendig:
$ua->timeout(10);
$ua->env_proxy;

Hier stehen der Twitter-Benutzername und das Passwort des Absenders, der für das Login (credentials) benötigt wird:

#Absender – Twitteruser und Passwort
$twitteruser=“deintwittername“;
$twitterpw=“deintwitterpw“;
$ua->credentials( „twitter.com:80″, „Twitter API“, $twitteruser => $twitterpw);

Dann die Nachricht und den Empfänger bestimmen:

#Empfänger
$form{user}=“Simon_A_Frank“;

#Nachricht (max 140 Zeichen)
$form{text}=“Hallo Simon!“;

Jetzt wird der Request gepostet und die Antwort von Twitter empfangen:

if ($response->is_success) {
  #Hat geklappt!
  print „DM erfolgreich verschickt!“;
} else {
  #ging nicht … Fehlermeldung:
  print $response->status_line;
}

Wenn es nicht geklappt hat kann es z. B. sein, dass der Empfänger kein Follower ist, dann sind natürlich keine direct messages möglich. Wie man dies abfragen kann gibt im nächsten Teil dieses Tutorials zu lesen.

Ein wenig Werbung in eigener Sache: Vor einiger Zeit bin ich gefragt worden, ob sich meine Überlegungen zum Online-Kulturmarketing auch für den Bereich klassische Musik bzw. Orchester übertragen lassen. In der aktuellen Ausgabe des Magazins „das Orchester“ ist nun von mir eine Antwort auf diese Frage in Form eines kurzen Artikels mit dem Titel „Erst denken, dann webzweinullen“ erschienen (Details und Bestellmöglichkeit finden Sie auf der Website des Verlages).

P.S. Die Fußnoten mit Wikipedia-Zitaten hat der Verlag ergänzt…