{"id":513,"date":"2005-11-26T20:44:33","date_gmt":"2005-11-26T20:44:33","guid":{"rendered":"http:\/\/beta.robertprice.co.uk\/robblog\/2005\/11\/using_del_icio_us_bookmarks_with_perl-shtml\/"},"modified":"2005-11-26T20:44:33","modified_gmt":"2005-11-26T20:44:33","slug":"using_del_icio_us_bookmarks_with_perl-shtml","status":"publish","type":"post","link":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/","title":{"rendered":"Using del.icio.us Bookmarks With Perl"},"content":{"rendered":"

\nEarlier this week I put live some Perl<\/a> code that took bookmarks I was posting to del.icio.us<\/a> and added them automatically to my blog.\n<\/p>\n

\nI’ve had a few people ask how I was able to do this, and it’s no big secret.\n<\/p>\n

\ndel.icio.us expose an API<\/a> that anyone can use to interact with their service. I’m using this with some Perl glue to aggregate the previous days posts and put them up on my own site.\n<\/p>\n

\nThe function I’m using is GET, which can take a date as an optional parameter. I use this parameter to get all postings from yesterday. So if the date today is 25th November 2005, to get yesterdays posts from del.icio.us I call the URL http:\/\/del.icio.us\/api\/posts\/get?dt=2005-11-24<\/a>.\n<\/p>\n

\nAll API calls to del.icio.us use HTTP-Auth, these are your site login and password.\n<\/p>\n

\nTo access this data using perl, we can use the LWP modules from CPAN<\/a>.\n<\/p>\n

my $ua = LWP::UserAgent->new;
\n$ua->agent('robslinkbot\/0.1 (+http:\/\/www.robertprice.co.uk)');
\nmy $get_url = 'http:\/\/del.icio.us\/api\/posts\/get?dt=' . $yesterday;
\nmy $req = HTTP::Request->new(GET => $get_url);
\n$req->authorization_basic(USERNAME, PASSWORD);
\nmy $res = $ua->request($req);
\nif ($res->is_success) {
\nmy $xml = $res->content;
\n} else {
\nwarn \"unable to get content from del.icio.usn\";
\n}
\n<\/code><\/div>\n

\nIn this case USERNAME<\/code> and PASSWORD<\/code> are both two constant values with my username and password defined in. You’ll need to put your own details in here.\n<\/p>\n

\nYou’ll also notice that I’m setting the agent to be robslinkbot\/0.1 (+http:\/\/www.robertprice.co.uk)<\/code>. del.icio.us specicially request that a user-agent is set as they tend to ban generic user-agents from time to time. If I didn’t set this, it would be set to something like lwp-perl<\/code>.\n<\/p>\n

\nSo now we have this code, and if it’s worked correctly, I should have my posts from the previous day in the variable $xml<\/var>, and if it’s not worked, I should have seen a warning informing me that the script was unable to get content from del.icio.us.\n<\/p>\n

\nWe can parse the XML provided very easily using one of Perl’s many XML<\/acronym> modules. In this case, I’m going to use XML::XPath<\/code>.\n<\/p>\n

\nAs we’ll have multiple bookmarks (hopefully), we’ll create a list of hashrefs. The hashrefs will contain the information relating to the post.\n<\/p>\n

\nOk, so firstly we create a variable called @posts<\/var> to store the hashrefs in.\n<\/p>\n

my @posts;
\n<\/code><\/div>\n

\nNow we can create our XML::XPath object, and get it to parse the xml we’ve already downloaded from del.icio.us and have in the $xml<\/var> variable.\n<\/p>\n

my $xp = XML::XPath->new(xml => $xml);
\n<\/code><\/div>\n

\nWe need to see if the XPath \/posts\/post exists, if it does it means we have posts to parse.\n<\/p>\n

if ($xp->exists('\/posts\/post')) {
\n<\/code><\/div>\n

\nNow we have to find al the posts and iterate over them\n<\/p>\n

foreach my $posts ($xp->find('\/\/post')->get_nodelist) {
\n<\/code><\/div>\n

\nNow all we do is to extract the information we need from each post, store it in our hashref and finally store it in the @posts<\/var> list.\n<\/p>\n

my $post_hashref;
\n## we use .= to stringify the find value, must be a better way to do that.
\n$post_hashref->{'href'} .= $posts->find('@href');
\n$post_hashref->{'description'} .= $posts->find('@description');
\n$post_hashref->{'time'} .= $posts->find('@time');
\n$post_hashref->{'hash'} .= $posts->find('@hash');
\n$post_hashref->{'extended'} .= $posts->find('@extended');
\nmy @tags = split(\/ \/, $posts->find('@tag'));
\n$post_hashref->{'tags'} = @tags;
\npush @posts, $post_hashref;
\n<\/code><\/div>\n

\nYou may have noticed that we have split the tags and stored them as a list. I just find this easier to work with.\n<\/p>\n

\nAnd that is about it. You should have list you can iterate over, or pass to something like Template Toolkit for displaying. This is a process I use on robertprice.co.uk.<\/p>\n","protected":false},"excerpt":{"rendered":"

Earlier this week I put live some Perl code that took bookmarks I was posting to del.icio.us and added them automatically to my blog. I’ve had a few people ask how I was able to do this, and it’s no big secret. del.icio.us expose an API that anyone can use to interact with their service. … Continue reading “Using del.icio.us Bookmarks With Perl”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"inline_featured_image":false,"footnotes":""},"categories":[2],"tags":[12,47,75,80],"class_list":["post-513","post","type-post","status-publish","format-standard","hentry","category-dev","tag-blog","tag-perl","tag-web-development","tag-xml"],"yoast_head":"\nUsing del.icio.us Bookmarks With Perl - Robert Price<\/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:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/\" \/>\n<meta property=\"og:locale\" content=\"en_GB\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Using del.icio.us Bookmarks With Perl - Robert Price\" \/>\n<meta property=\"og:description\" content=\"Earlier this week I put live some Perl code that took bookmarks I was posting to del.icio.us and added them automatically to my blog. I’ve had a few people ask how I was able to do this, and it’s no big secret. del.icio.us expose an API that anyone can use to interact with their service. … Continue reading "Using del.icio.us Bookmarks With Perl"\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/\" \/>\n<meta property=\"og:site_name\" content=\"Robert Price\" \/>\n<meta property=\"article:published_time\" content=\"2005-11-26T20:44:33+00:00\" \/>\n<meta name=\"author\" content=\"rob\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"rob\" \/>\n\t<meta name=\"twitter:label2\" content=\"Estimated reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"3 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/\"},\"author\":{\"name\":\"rob\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#\\\/schema\\\/person\\\/fac6d5b076e0e14e1fb13e15b542a6c5\"},\"headline\":\"Using del.icio.us Bookmarks With Perl\",\"datePublished\":\"2005-11-26T20:44:33+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/\"},\"wordCount\":505,\"keywords\":[\"Blog\",\"Perl\",\"Web Development\",\"XML\"],\"articleSection\":[\"Dev\"],\"inLanguage\":\"en-GB\"},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/\",\"url\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/\",\"name\":\"Using del.icio.us Bookmarks With Perl - Robert Price\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#website\"},\"datePublished\":\"2005-11-26T20:44:33+00:00\",\"author\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#\\\/schema\\\/person\\\/fac6d5b076e0e14e1fb13e15b542a6c5\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/#breadcrumb\"},\"inLanguage\":\"en-GB\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/using_del_icio_us_bookmarks_with_perl-shtml\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Using del.icio.us Bookmarks With Perl\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#website\",\"url\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/\",\"name\":\"Robert Price\",\"description\":\"\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-GB\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.robertprice.co.uk\\\/robblog\\\/#\\\/schema\\\/person\\\/fac6d5b076e0e14e1fb13e15b542a6c5\",\"name\":\"rob\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-GB\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g\",\"caption\":\"rob\"}}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Using del.icio.us Bookmarks With Perl - Robert Price","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:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/","og_locale":"en_GB","og_type":"article","og_title":"Using del.icio.us Bookmarks With Perl - Robert Price","og_description":"Earlier this week I put live some Perl code that took bookmarks I was posting to del.icio.us and added them automatically to my blog. I’ve had a few people ask how I was able to do this, and it’s no big secret. del.icio.us expose an API that anyone can use to interact with their service. … Continue reading \"Using del.icio.us Bookmarks With Perl\"","og_url":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/","og_site_name":"Robert Price","article_published_time":"2005-11-26T20:44:33+00:00","author":"rob","twitter_card":"summary_large_image","twitter_misc":{"Written by":"rob","Estimated reading time":"3 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/#article","isPartOf":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/"},"author":{"name":"rob","@id":"https:\/\/www.robertprice.co.uk\/robblog\/#\/schema\/person\/fac6d5b076e0e14e1fb13e15b542a6c5"},"headline":"Using del.icio.us Bookmarks With Perl","datePublished":"2005-11-26T20:44:33+00:00","mainEntityOfPage":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/"},"wordCount":505,"keywords":["Blog","Perl","Web Development","XML"],"articleSection":["Dev"],"inLanguage":"en-GB"},{"@type":"WebPage","@id":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/","url":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/","name":"Using del.icio.us Bookmarks With Perl - Robert Price","isPartOf":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/#website"},"datePublished":"2005-11-26T20:44:33+00:00","author":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/#\/schema\/person\/fac6d5b076e0e14e1fb13e15b542a6c5"},"breadcrumb":{"@id":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/#breadcrumb"},"inLanguage":"en-GB","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.robertprice.co.uk\/robblog\/using_del_icio_us_bookmarks_with_perl-shtml\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/www.robertprice.co.uk\/robblog\/"},{"@type":"ListItem","position":2,"name":"Using del.icio.us Bookmarks With Perl"}]},{"@type":"WebSite","@id":"https:\/\/www.robertprice.co.uk\/robblog\/#website","url":"https:\/\/www.robertprice.co.uk\/robblog\/","name":"Robert Price","description":"","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.robertprice.co.uk\/robblog\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-GB"},{"@type":"Person","@id":"https:\/\/www.robertprice.co.uk\/robblog\/#\/schema\/person\/fac6d5b076e0e14e1fb13e15b542a6c5","name":"rob","image":{"@type":"ImageObject","inLanguage":"en-GB","@id":"https:\/\/secure.gravatar.com\/avatar\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/6f0eb511179100a4e968abc70403e33686e6ab3e992e392bedd2ccac01da666c?s=96&d=mm&r=g","caption":"rob"}}]}},"_links":{"self":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/posts\/513","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/comments?post=513"}],"version-history":[{"count":0,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/posts\/513\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/media?parent=513"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/categories?post=513"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.robertprice.co.uk\/robblog\/wp-json\/wp\/v2\/tags?post=513"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}