I Love Perl

I just wrote a chunk of sexy (or scary) code to lookup the answer a user gave (note it’s actually on one line):

$d[0]->[$q->{number}-1]->{answers}-> [$answerlookup{$mydata{$q->{number}}}]->{answer}

I’m not sure if I’m more surprised that it compiles or that it appears to actually work. Granted, it’s not as scary as some perl code out there.

2 Comments on “I Love Perl”

  1. I’ve been trying to find time to work on a project to take a bunch of data and write out blosxom entries for it.
    So far I’m at the planning stage.

  2. I’m disappointed in you Alan. You’re using alphanumerics, but not map 😉
    Seriously, that line is taking a while to seep into my mind. Maybe it’s because I’ve been working too much with the XPath equivalent?