{"id":1146,"date":"2014-02-28T12:45:59","date_gmt":"2014-02-28T12:45:59","guid":{"rendered":"http:\/\/frank-it-beratung.com\/blog\/?p=1146"},"modified":"2014-02-28T12:50:52","modified_gmt":"2014-02-28T12:50:52","slug":"tutorial-twitter-api-programmierung-mit-perl-neue-version","status":"publish","type":"post","link":"https:\/\/frank-it-projekte.de\/blog\/2014\/02\/28\/tutorial-twitter-api-programmierung-mit-perl-neue-version\/","title":{"rendered":"Tutorial: Twitter-API Programmierung mit Perl (neue Version)"},"content":{"rendered":"

Vor gut zwei Jahren wurde ich von der \u00f6sterreichischen Perl-Zeitung gefragt, ob ich auf Grundlage der in diesem Blog ver\u00f6ffentlichen Posts\u00a0 ein kurzen zusammenfassenden Beitrag \u00fcber Twitter mit Perl schreiben k\u00f6nne, was ich gerne gemacht habe (Details siehe mein Blogpost vom 3. M\u00e4rz 2012<\/a>). Inzwischen hat sich bei der Twitter-API einiges getan (z. B. wurde die XML-Unterst\u00fctzung eingestellt) und mein damals ver\u00f6ffentlichtes Beispiel w\u00fcrde so nicht mehr funktionieren – deshalb heute ein Update.<\/p>\n

<\/p>\n

Tutorial: Twitter-API Programmierung \u00a0mit Perl am Beispiel einer \u201eSingle-User-L\u00f6sung\u201c (neue Version von Februar 2014)
\n<\/strong><\/p>\n

Im Folgenden soll kurz erkl\u00e4rt werden, wie eine einfache \u201eSingle-User-L\u00f6sung\u201c mit Perl realisiert werden kann. In meinem Beispiel soll durch ein Script diverse Tweets\u00a0 im Namen eines bestimmten Twitter-Account verschickt werden. Das ist deshalb eine \u201eSingle-User-L\u00f6sung\u201c, da auf die Authentifizierung verzichtet wird und das Script eben nur im Namen dieses einen Twitter-Accounts die API nutzen kann. M\u00f6chte man eine komplexere Multi-User-L\u00f6sung, empfiehlt es sich, fertige Twitter-Module f\u00fcr Perl, z. B. Net::Twitter <\/a>zu verwenden und nicht wie hier nur eine Minimall\u00f6sung zu realisieren.\u00a0 Aber f\u00fcr einfache Aufgaben, etwa um mit einem crontab gesteuertem Script automatisch News aus irgendwelchen Quellen auszulesen und in Tweets zu verwandeln, um einen Retweet-Bot oder eine Twitter-Wall zu bauen ist folgende \u201eSingle-User-L\u00f6sung\u201c bestens geeignet.<\/p>\n

Als erstes muss die eigene \u201eApplication\u201c bei Twitter registriert werden:<\/p>\n

    \n
  1. Daf\u00fcr ruft man\u00a0 die Developer-Seite von Twitter auf: http:\/\/dev.twitter.com<\/a><\/li>\n
  2. Als n\u00e4chstes meldet man sich mit dem Twitter-Account an, mit dem sp\u00e4ter auch das Script ausgef\u00fchrt werden sollen.<\/li>\n
  3. Jetzt w\u00e4hlt man \u201eCreate App\u201c und denkt sich einen sch\u00f6nen Namen sowie eine Beschreibung f\u00fcr seine App aus (diese k\u00f6nnen Nutzer u. U. zu Gesicht bekommen, je nach Client wird diese Info unter den Tweets angezeigt).<\/li>\n
  4. Auch eine URL ist anzugeben (z. B. die Homepage der Firma oder des Entwicklers), die Callback-URL muss leer gelassen werden.<\/li>\n
  5. Jetzt ist die App erstellt. Unter \u201eSetting\u201c muss man nur noch \u201eRead&Write\u201c ausw\u00e4hlen, sonst hat man nur Lesezugriff auf Twitter und kann keine Tweets versenden.<\/li>\n
  6. Auf der Seite \u201eDetails\u201c findet man nun den OAuth-Consumer-Key und -Secret. Diese werden sp\u00e4ter ben\u00f6tigt (es sind die Zugangsschl\u00fcssel f\u00fcr die Anwendung, die sich nicht \u00e4ndern w\u00fcrden, wenn man einen anderen Benutzer das Script ausf\u00fchren lassen will).<\/li>\n
  7. Unter \u201eDetails\u201c klickt man auf \u201eCreate my access token\u201c. Darauf erh\u00e4lt man das OAuth-Access-Token und -Secret f\u00fcr den aktuell eingeloggten Twitter-User. Achtung: M\u00f6chte man, dass nicht nur ein User, sondern unterschiedliche das Script nutzen, braucht man eine \u201eMulti-User-L\u00f6sung\u201c. Daf\u00fcr m\u00fcsste dann die OAuth-Authentifizierung komplett implementieren, was nicht Inhalt dieses Tutorials ist (vgl. oben).<\/li>\n<\/ol>\n

    Bevor die Programmierarbeit beginnen kann muss ggf. nur Net::OAuth installiert werden \u2013 zu finden auf CPAN, deshalb einfach in die Shell<\/p>\n

    perl \u2013MCPAN \u2013e\u00a0 \u2018install NET::OAuth\u2019<\/p>\n

    tippen. Und so sieht der Programmcode aus:<\/p>\n

    #!\/usr\/bin\/perl\r\n\r\nuse strict;\r\nuse LWP::UserAgent;\u00a0\u00a0 \u00a0\r\nuse Encode;\r\nuse Net::OAuth;\r\n$Net::OAuth::PROTOCOL_VERSION \r\n = Net::OAuth::PROTOCOL_VERSION_1_0A; \r\n\r\n# OAuth: Tokens f\u00fcr den Twitter-User\r\nmy $accesstoken = \"???\";\r\nmy $accesssecret = \"???\";\r\n\r\n# OAuth: Keys f\u00fcr die App\r\nmy $consumerkey =\"???\";\r\nmy $consumerkeysecret=\"???\";\r\n\r\n# Beispiel 1: Eine direct message senden\r\nmy $APIurl \r\n = 'https:\/\/api.twitter.com\/1.1\/direct_messages\/new.json';\r\nmy $empfaenger=\"Simon_A_Frank\";\r\nmy $nachricht=\"Und nochmals: Hall\u00f6chen Simon!\";\r\n\r\n# Beispiel 2: Ein Tweet senden\r\n#my $APIurl \r\n#  = 'https:\/\/api.twitter.com\/1.1\/statuses\/update.json';\r\n#my $nachricht=\"Hallo dies ist ein Test-Tweet!\"; \r\n\r\n# OAuth request vorbereiten\r\nmy $request = Net::OAuth->request(\"protected resource\")->new(\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 consumer_key \u00a0\u00a0 \u00a0=> $consumerkey,\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 consumer_secret => $consumerkeysecret,\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 request_url => $APIurl,\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 request_method => 'POST',\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 signature_method => 'HMAC-SHA1',\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 timestamp => time,\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 nonce => int(rand(9000) + 1000),\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 token => $accesstoken,\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 token_secret => $accesssecret,\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 extra_params => { \r\n\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0text => decode(\"iso-8859-1\",$nachricht),\r\n\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0user => $empfaenger \r\n\u00a0\u00a0\u00a0\u00a0\u00a0 }\r\n); \r\n\r\n# f\u00fcr Beispiel 2:\r\n#extra_params => { \r\n# \u00a0\u00a0\u00a0 \u00a0status => decode_utf8($nachricht)\r\n#}\r\n\r\n# OAuth signieren\r\n$request->sign;\r\n\r\n#sinnvolle LWP Settings - siehe LWP-Doku\r\nmy $ua = LWP::UserAgent->new;\r\n$ua->timeout(10);\r\n$ua->env_proxy;\r\n\r\n# http Request vorbereiten und senden\r\nmy $httpheader = HTTP::Headers->new(\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\r\n\u00a0'Authorization' => $request->to_authorization_header,\r\n\u00a0'Content-Type' => 'application\/x-www-form-urlencoded' \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\r\n);\r\nmy $httprequest = HTTP::Request->new('POST', $APIurl, \r\n\u00a0$httpheader, $request->to_post_body);\r\nmy $httpresponse = $ua->request($httprequest);\r\n\r\n# Erfolg?\r\nif ($httpresponse->is_success) {\r\n\u00a0 \u00a0print \"Erfolgreich!\\n\\n\";\r\n\u00a0 \u00a0print \"\\nContent: \" . $httpresponse->content . \"\\n\";\r\n}\r\nelse { \r\n\u00a0print \"Nicht erfogreich, Fehler: \" \r\n  . $httpresponse->status_line;\r\n\u00a0print \"\\nContent: \" . $httpresponse->content . \"\\n\";\r\n}<\/pre>\n
    Noch ein paar Tipps:<\/strong><\/p>\n