Simple Script cgi-perl ENTRADAS BLOGS

Simple Script en perl para mostrar una tabla con 3 entradas de blog en una pagina SHTML


#!/usr/bin/perl
    use XML::RSS::Feed;
    use LWP::Simple qw(get);
    use CGI qw(:standard);
    use CGI::Carp qw(fatalsToBrowser);
    
    print "Content-type: text/plain\n\n"; #Devolvemos a la llamada CGI el retorno de texto plano
        my $feed = XML::RSS::Feed->new(
        url    => "http://feeds.feedburner.com/AdictosDeLaInformacin",
        name   => "AdictosDeLaInformacin",
max_headlines => 3,#Limite d entradas a mostrar en el blog
    );
#preparamos la tabla que vamos a insertar en la pagina shtml desde la llamada al CGI
print "<table width=150 border=0 cellspacing=10 cellpadding=4>\n";
        print "<caption align=top>\n";
        print "$name\n";
        print "</caption>\n";
    while (1) {
        $feed->parse(get($feed->url));
        print "<tr><td><a href=". $_->url => $url . " target=_blank>" . $_->headline . "</a></td></tr>\n\n\n" for

$feed->late_breaking_news;#Imprime en un Hipervinculo el titulo y su link cada uno en una celda distinta
        
print "</table>\n";
exit();
    }