#!/usr/bin/perl
use strict;
use warnings;

use LWP::Simple qw(get);
use XML::RSS;
#use Data::Dumper;

my $xml_data=get("http://www.dlib.org/rss/dlib.rss");

my $rss = XML::RSS->new;
$rss->parse($xml_data);
#print Dumper($xml_ref);

#Liste mit den gesuchten Einträgen 
my @items=();

for my $item (@{$rss->{item}})
{
  my %values=();
  $values{title}=$item->{title};
  $values{link}=$item->{link};
  $values{desc}='';

  # Nicht immer ist "description" hesetzt,
  # darum ist es nötig Erst abzufragen ob das Elemement vorhanden ist
  # und dann den gewünschten Wert holen
  $values{desc}=$1 if($item->{description} and $item->{description}=~m/^(.+?)\s+by/);

  # Referenz auf "%values" an das Array anhängen;
  push(@items,\%values);
}

for my $item (@items)
{
  print "Title        = ".$item->{title}."\n";
  print "Link         = ".$item->{link}."\n";
  print "Beschreibung = ".$item->{desc}."\n";
  print '#'x80,"\n";
}