Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

davorg (18)

Yahoo! ID: daveorguk (Add User, Send Message)

Hacker, author, trainer

Technorati Profile []

Journal of davorg (18)

Wednesday February 18, 2009
08:23 AM

Yak Shaving

[ #38505 ]

For a few months I've been playing with conky - which is a nice system for writing stuff onto a Linux desktop. I was introduced to it by a series of LifeHacker posts last year.

Just last week, they featured a really nice set-up which I wanted to go some way to recreated. The post included a link to the programs that were used to create the desktop, so it was easy to work out what was going on.

Most of the data was pulled from web feeds and converted to flat text. That's a nice approach as once you've got that working, there's no limit to the data you can use.

I was slightly disappointed, however, to see that the code included in the article had three separate scripts (one for each source used) and that they were all bash scripts which used curl to grab the feeds and load of sed and grep to extract the relevant parts. What this really needed was a generic approach.

So I reached for the Template Toolkit. And I reached for Template::Plugin::XML::RSS. And then I stopped myself. Not all web feeds are RSS these days (that's why we've largely stopped calling them RSS feeds) so XML::RSS wouldn't always be the right tool. What I really needed was XML::Feed - which handles both RSS and Atom and treats them both in the same way.

But there wasn't a Template::Plugin::XML::Feed. I say "wasn't" rather than "isn't" as there is one now - I uploaded it last night.

I didn't get much time to play with conky. But I've now got all of the tools I need. In particular, I can create simple programs like this to access web feeds.


use strict;
use warnings;

use Template;
use URI;

my $t = Template->new;
my $uri = URI->new('');
$t->process(\*DATA , { uri => $uri })
  or die $t->error;

[% USE tweets = XML.Feed(uri);
   USE autoformat(right => 80);
   FOREACH tweet IN tweets.entries -%]
[% %]:
[% tweet.title | autoformat -%]
[% LAST IF loop.count == 5 -%]
[% END -%]

Of course, I need to remove the hard-coded URI and put the template into a separate file. That's tonight's first little project.

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.