{"id":229,"date":"2010-01-07T14:38:03","date_gmt":"2010-01-07T14:38:03","guid":{"rendered":"http:\/\/frank-it-beratung.com\/?p=229"},"modified":"2010-01-07T14:38:03","modified_gmt":"2010-01-07T14:38:03","slug":"twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden","status":"publish","type":"post","link":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/","title":{"rendered":"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden"},"content":{"rendered":"

Ein sinnvolle Erweiterung zu dem im Teil I vorgestellten Perl-Script<\/a>, mit dem man direct messages via Twitter versenden kann w\u00e4re folgendes: Bevor man die direct message abschickt soll gepr\u00fcft werden, ob der Empf\u00e4nger mir \u00fcberhaupt noch folgt \u2013 ansonsten kann ja keine direct message verschickt werden. So einfach geht das:<\/p>\n

#zuerst pr\u00fcfen, ob Empf\u00e4nger noch mein follower?
\n$usera=“Simon_A_Frank“;
\n$userb=“kulturzwitscher“;
\n$response = $ua->get(„http:\/\/twitter.com\/friendships\/exists.xml?user_a=$usera&user_b=$userb“);<\/p>\n

if ($response->is_success) {
\nprint „Noch follower: „.$response->content.“n“;
\n} else {
\nprint „Abbruch – kein Follower mehr (oder ein anderer Fehler): „;
\nprint $response->status_line;
\ndie();
\n}<\/p><\/blockquote>\n

F\u00fcr die \u00dcberpr\u00fcfung von Friendships \/ Follower ist \u00fcbrigens nicht unbedingt ein Login erforderlich (nur bei Twitterusern mit gesch\u00fctzten Tweets).<\/p>\n

Und hier nochmals den gesamten Code aus Teil I des Tutorials<\/a> erg\u00e4nzt um\u00a0die Follower-\u00dcberpr\u00fcfung:<\/p>\n

#!\/usr\/bin\/perl<\/p>\n

use LWP::UserAgent;
\nmy $ua = LWP::UserAgent->new;<\/p>\n

#sinnvolle LWP Settings
\n$ua->timeout(10);
\n$ua->env_proxy;<\/p>\n

# Empf\u00e4nger
\n$form{user}=“Simon_A_Frank“;<\/p>\n

#Nachricht (max 140 Zeichen)
\n$form{text}=“Hallo Simon!“;<\/p>\n

#Absender – Twitteruser und Passwort
\n$twitteruser=“deintwitterusername“;
\n$twitterpw=“deinpw“;
\n$ua->credentials( „twitter.com:80“, „Twitter API“, $twitteruser => $twitterpw);<\/p>\n

#zuerst pr\u00fcfen, ob Empf\u00e4nger noch mein follower?
\n$usera=“Simon_A_Frank“;
\n$userb=“kulturzwitscher“;
\n$response = $ua->get(„http:\/\/twitter.com\/friendships\/exists.xml?user_a=$usera&user_b=$userb“);<\/p>\n

if ($response->is_success) {
\nprint „Noch follower: „.$response->content.“n“;
\n} else {
\nprint „Abbruch – kein Follower mehr (oder ein anderer Fehler): „;
\nprint $response->status_line;
\ndie();
\n}<\/p>\n

#Erfolg – dann die direct message senden:
\n$response = $ua->post(„http:\/\/twitter.com\/direct_messages\/new.xml“,%form );<\/p>\n

if ($response->is_success) {
\n#Hat geklappt!
\nprint „DM erfolgreich verschickt!“;
\n} else {
\n#ging nicht …
\nprint „Nicht erfogreich, Fehler: “ . $response->status_line;
\n}<\/p><\/blockquote>\n

Update am 02.09.2010:<\/strong> Ende August 2010 hat Twitter „Basic Auth“ abgestellt, d. h. dieses Script funktioniert so wie dargestellt nicht mehr ganz. Stattdessen muss auf OAuth umgestellt werden. Wie das geht habe ich im folgenden Tutorial<\/a> beschrieben.<\/p>\n","protected":false},"excerpt":{"rendered":"

Ein sinnvolle Erweiterung zu dem im Teil I vorgestellten Perl-Script, mit dem man direct messages via Twitter versenden kann w\u00e4re folgendes: Bevor man die direct message abschickt soll gepr\u00fcft werden, ob der Empf\u00e4nger mir \u00fcberhaupt noch folgt \u2013 ansonsten kann … Weiterlesen →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[14,16,20],"tags":[79,81,83,50],"class_list":["post-229","post","type-post","status-publish","format-standard","hentry","category-perl","category-programmierung","category-twitter","tag-perl","tag-programmierung","tag-twitter","tag-twitter-api"],"yoast_head":"\nTwitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden - Socialweb Dev-Blog \/\/ Frank-IT-Beratung<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden - Socialweb Dev-Blog \/\/ Frank-IT-Beratung\" \/>\n<meta property=\"og:description\" content=\"Ein sinnvolle Erweiterung zu dem im Teil I vorgestellten Perl-Script, mit dem man direct messages via Twitter versenden kann w\u00e4re folgendes: Bevor man die direct message abschickt soll gepr\u00fcft werden, ob der Empf\u00e4nger mir \u00fcberhaupt noch folgt \u2013 ansonsten kann … Weiterlesen →\" \/>\n<meta property=\"og:url\" content=\"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/\" \/>\n<meta property=\"og:site_name\" content=\"Socialweb Dev-Blog \/\/ Frank-IT-Beratung\" \/>\n<meta property=\"article:published_time\" content=\"2010-01-07T14:38:03+00:00\" \/>\n<meta name=\"author\" content=\"Simon A. Frank\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Simon A. Frank\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"2\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/\"},\"author\":{\"name\":\"Simon A. Frank\",\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/#\\\/schema\\\/person\\\/e31d0c55b9277739ef6c87d5e7bb47a2\"},\"headline\":\"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden\",\"datePublished\":\"2010-01-07T14:38:03+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/\"},\"wordCount\":354,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/#\\\/schema\\\/person\\\/e31d0c55b9277739ef6c87d5e7bb47a2\"},\"keywords\":[\"Perl\",\"Programmierung\",\"Twitter\",\"Twitter API\"],\"articleSection\":[\"Perl\",\"Programmierung\",\"Twitter\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/\",\"url\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/\",\"name\":\"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden - Socialweb Dev-Blog \\\/\\\/ Frank-IT-Beratung\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/#website\"},\"datePublished\":\"2010-01-07T14:38:03+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/2010\\\/01\\\/07\\\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Startseite\",\"item\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/#website\",\"url\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/\",\"name\":\"Socialweb Dev-Blog \\\/\\\/ Frank-IT-Beratung\",\"description\":\"Social-Media und Web-Entwicklung: Tutorials und Tipps von Simon A. Frank\",\"publisher\":{\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/#\\\/schema\\\/person\\\/e31d0c55b9277739ef6c87d5e7bb47a2\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":[\"Person\",\"Organization\"],\"@id\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/#\\\/schema\\\/person\\\/e31d0c55b9277739ef6c87d5e7bb47a2\",\"name\":\"Simon A. Frank\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/frank-it-beratung.de\\\/blog\\\/wp-content\\\/uploads\\\/2009\\\/09\\\/simon200x200.jpg\",\"url\":\"https:\\\/\\\/frank-it-beratung.de\\\/blog\\\/wp-content\\\/uploads\\\/2009\\\/09\\\/simon200x200.jpg\",\"contentUrl\":\"https:\\\/\\\/frank-it-beratung.de\\\/blog\\\/wp-content\\\/uploads\\\/2009\\\/09\\\/simon200x200.jpg\",\"width\":200,\"height\":200,\"caption\":\"Simon A. Frank\"},\"logo\":{\"@id\":\"https:\\\/\\\/frank-it-beratung.de\\\/blog\\\/wp-content\\\/uploads\\\/2009\\\/09\\\/simon200x200.jpg\"},\"url\":\"https:\\\/\\\/frank-it-projekte.de\\\/blog\\\/author\\\/sfrank\\\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden - Socialweb Dev-Blog \/\/ Frank-IT-Beratung","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/","og_locale":"de_DE","og_type":"article","og_title":"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden - Socialweb Dev-Blog \/\/ Frank-IT-Beratung","og_description":"Ein sinnvolle Erweiterung zu dem im Teil I vorgestellten Perl-Script, mit dem man direct messages via Twitter versenden kann w\u00e4re folgendes: Bevor man die direct message abschickt soll gepr\u00fcft werden, ob der Empf\u00e4nger mir \u00fcberhaupt noch folgt \u2013 ansonsten kann … Weiterlesen →","og_url":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/","og_site_name":"Socialweb Dev-Blog \/\/ Frank-IT-Beratung","article_published_time":"2010-01-07T14:38:03+00:00","author":"Simon A. Frank","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Simon A. Frank","Gesch\u00e4tzte Lesezeit":"2\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/#article","isPartOf":{"@id":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/"},"author":{"name":"Simon A. Frank","@id":"https:\/\/frank-it-projekte.de\/blog\/#\/schema\/person\/e31d0c55b9277739ef6c87d5e7bb47a2"},"headline":"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden","datePublished":"2010-01-07T14:38:03+00:00","mainEntityOfPage":{"@id":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/"},"wordCount":354,"commentCount":0,"publisher":{"@id":"https:\/\/frank-it-projekte.de\/blog\/#\/schema\/person\/e31d0c55b9277739ef6c87d5e7bb47a2"},"keywords":["Perl","Programmierung","Twitter","Twitter API"],"articleSection":["Perl","Programmierung","Twitter"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/","url":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/","name":"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden - Socialweb Dev-Blog \/\/ Frank-IT-Beratung","isPartOf":{"@id":"https:\/\/frank-it-projekte.de\/blog\/#website"},"datePublished":"2010-01-07T14:38:03+00:00","breadcrumb":{"@id":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/frank-it-projekte.de\/blog\/2010\/01\/07\/twitter-mit-perl-tutorial-teil-ii-direct-messages-versenden\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Startseite","item":"https:\/\/frank-it-projekte.de\/blog\/"},{"@type":"ListItem","position":2,"name":"Twitter mit Perl \u2013 Tutorial Teil II: Direct Messages versenden"}]},{"@type":"WebSite","@id":"https:\/\/frank-it-projekte.de\/blog\/#website","url":"https:\/\/frank-it-projekte.de\/blog\/","name":"Socialweb Dev-Blog \/\/ Frank-IT-Beratung","description":"Social-Media und Web-Entwicklung: Tutorials und Tipps von Simon A. Frank","publisher":{"@id":"https:\/\/frank-it-projekte.de\/blog\/#\/schema\/person\/e31d0c55b9277739ef6c87d5e7bb47a2"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/frank-it-projekte.de\/blog\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":["Person","Organization"],"@id":"https:\/\/frank-it-projekte.de\/blog\/#\/schema\/person\/e31d0c55b9277739ef6c87d5e7bb47a2","name":"Simon A. Frank","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/frank-it-beratung.de\/blog\/wp-content\/uploads\/2009\/09\/simon200x200.jpg","url":"https:\/\/frank-it-beratung.de\/blog\/wp-content\/uploads\/2009\/09\/simon200x200.jpg","contentUrl":"https:\/\/frank-it-beratung.de\/blog\/wp-content\/uploads\/2009\/09\/simon200x200.jpg","width":200,"height":200,"caption":"Simon A. Frank"},"logo":{"@id":"https:\/\/frank-it-beratung.de\/blog\/wp-content\/uploads\/2009\/09\/simon200x200.jpg"},"url":"https:\/\/frank-it-projekte.de\/blog\/author\/sfrank\/"}]}},"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p2dxcw-3H","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/posts\/229","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/comments?post=229"}],"version-history":[{"count":0,"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/posts\/229\/revisions"}],"wp:attachment":[{"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/media?parent=229"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/categories?post=229"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/frank-it-projekte.de\/blog\/wp-json\/wp\/v2\/tags?post=229"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}