#!/usr/bin/perl -w
#
# craigslist carfinder
# see: http://jeremy.zawodny.com/blog/archives/001440.html

use strict;
use XML::Simple;
use LWP::Simple;
use Data::Dumper;

my $debug = 0;

my @feeds = (
    'http://www.craigslist.org/sby/car/index.rss',
    'http://www.craigslist.org/pen/car/index.rss',
    'http://www.craigslist.org/eby/car/index.rss',
    'http://www.craigslist.org/car/index.rss',
);

for my $feed (@feeds)
{
    my $xml = get($feed);
    my $ref = XMLin($xml);
    my $items = $ref->{item};

    if ($debug)
    {
        print "$xml";
        print Data::Dumper->Dump([$items]);
        exit;
    }

    for my $item (@$items)
    {
        my $title = $item->{title};
        my $url = $item->{link};

        # regex match goes here
        if ($title =~ /runner/i)
        {
            print "$title\n  $url\n\n";
        }
    }
    # don't suck feeds too quickly
    sleep 2;
}

exit;

__END__