Sunday, November 4, 2007

Erlang Makes My Head Hurt

For those of you who haven't heard about Erlang yet, it is a functional programming language (like Lisp or Prolog) developed quietly over the last 20 years by telecoms giant Ericsson for use in telco switches.

Ericsson has been using it for roughly the last 14 years; it has several properties that make it particularly relevant to many of the problems facing developers today. It's one of the few languages that is particularly good at letting programmers take advantage of multi-core/multi-CPU systems, and distribute services across multiple boxes. YAWS, a webserver written in Erlang and a poster child of its efficiencies, kicks Apache's tail from a scalability standpoint. This is no small accomplishment for a high level language.

Today's scaling strategies revolve less around faster clock speeds and more around adding cores. Scaling out to many machines is also important, but power and space considerations are also more of an issue than ever before.

So Erlang is gaining ground because it addresses scalability for this new age of multi-core systems. Today you might have a dual Clovertown Xeon box with 8 cores, but very little software to take advantage of it. Once you get past 2 or 4 cores, that extra capacity provides little to no benefit. Enter a language like Erlang, and suddenly all that power becomes available to the programmer.

Some of my coder buddies, (Jay Phillips, Rich Kilmer and Marcel Molina) have been looking at Erlang for various tasks, and Dave Thomas' blog posts on Erlang have also inspired me to take a look at the language for some of my own work.

I picked up Joe Armstrong's book, Programming Erlang from Pragmatic Bookshelf and started reading it on a recent airplane flight.

Today I put together my first Erlang program, based on knowledge gleaned from Dave Thomas' postings and from the book.

This very simple program grabs the top_rated feed of videos from YouTube (an XML RSS feed) and then iterates through the result set to get the profile URL for each user. It is a fairly useless and trivial example, but if I can make this work then there are other things I can do down the line.


-module(youtube).
-export([fetch_each_user/0]).
-include_lib("xmerl/include/xmerl.hrl").

get_feed() ->
{ ok, {_Status, _Headers, Body }} = http:request("http://gdata.youtube.com/feeds/standardfeeds/top_rated"),
{ Xml, _Rest } = xmerl_scan:string(Body),
xmerl_xpath:string("//author/name/text()", Xml).

get_user_profile(User) ->
{_,[A|B],_,[],Name,_} = User,
URL = "http://gdata.youtube.com/feeds/users/" ++ Name,
{ ok, {_Status, _Headers, Body }} = http:request(URL),
{ Xml, _Rest } = xmerl_scan:string(Body),
[{_,[C|D],_,[],Id,_}] = xmerl_xpath:string("//id/text()", Xml),
{ Name, Id }.

fetch_each_user() ->
lists:map(fun get_user_profile/1, get_feed()).


I am pretty sure I am doing this All Wrong (tm).

My biggest area of confusion comes in the pattern matching that's required to match (and thus read) the results from the xmerl_xpath:string parsing. According to Dave Thomas' examples, xmerl_xpath should produce a #xmlText record (or a set of them) that can then be matched with the #xmlText{} syntax.

In practice, and with the Youtube API data I used, I see no such #xmlText records. Instead I get a flattened tuple from such parsing, along the lines of:


>xmerl_xpath:string("//location/text()", Xml)
[{xmlText,[{'yt:location',14},{entry,1}],1,[],"GB",text}]


The only way I can find to match this is something like this:


[{_,[A|B],_,[],Location,_}] = xmerl_xpath:string("//location/text()", Xml)


I am sure I am missing some key step or concept, but that's how we learn new languages -- stumble along til we figure out how to solve the things we want to solve.

There's an incredible amount of functionality packed into these 19 lines of code. It'll be even more amazing when I figure out my initial questions and then add concurrent processing of the user profile URLs. In theory I can simultaneously process dozens of URL feeds from Youtube and spider their API data as though through a fire hose. Stay tuned.

Meantime if anyone has any suggestions on my current puzzlements I'd love to hear them.

Erlang is a cool language. It doesn't give me the aesthetic fuzzies I receive from programming in Ruby, but I do get pretty jazzed up thinking about what should be possible from a performance and economy standpoint. Erlang doesn't allow for mutable state; variables have fixed values once assigned, and algorithms are generally handled via recursion. This is how it scales out to so many cores/cpus/machines so readily. It's kinda weird if you're used to "normal" mutable state languages.

Whenever I learn a new language (human or computer) I generally have weird and overactive dreams. I attribute this to my brain shuffling things around to accommodate new grammar and semantics.

The last few days have produced particularly vivid dreams.

3 comments:

Ulf Wiger said...

Dave,

You've stumbled upon one of the syntactic quirks of Erlang. For historical reasons, a record is syntactic sugar for a "tagged tuple". What you see in the shell is the tuple representation of a record.

Since you've included "xmerl.hrl" in your module, you should be able to use record syntax when matching. If you try the code in the shell, you need to make the shell aware of the record definition:

9> xmerl_xpath:string("//id/text()", XML).
[{xmlText,[{id,1},{entry,1}],
1,
[],
"http://gdata.youtube.com/feeds/users/uwiger",
text}]
10> code:which(xmerl).
"/usr/local/lib/erlang/lib/xmerl-1.1.2/ebin/xmerl.beam"
11> rr("/usr/local/lib/erlang/lib/xmerl-1.1.2/include/xmerl.hrl").
[xmerl_event,
...,
xmlText]
12> [#xmlText{value = Id}] = xmerl_xpath:string("//id/text()", XML).
[#xmlText{parents = [{id,1},{entry,1}],
pos = 1,
language = [],
value = "http://gdata.youtube.com/feeds/users/uwiger",
type = text}]
13> Id.
"http://gdata.youtube.com/feeds/users/uwiger"

Dave Troy said...

Ah, OK! Thanks for the help. It felt to me that it was this sort of a problem, but I wasn't sure how to proceed given my unfamiliarity with the language.

I will now press ahead! Best, Dave

Lukka said...

thanks to both of u guys for including the code snippets. helped solve my xmerl queries.