use strict; use LWP::Simple; use XML::RSS; use CGI; $|++; my $cgi = new CGI; print $cgi->header,$cgi->start_html('INFO PORTAL'); my $rss=new XML::RSS; my $FILE="/home/foo/slashdot.rdf"; mirror("http://slashdot.org/slashdot.rdf", $FILE); $rss->parsefile($FILE); my $item; for $item (@{$rss->{"items"}}) { print "<A HREF=\"$item->{link}\">$item->{title}</A><BR>"; } print "HERE NO PROBLEM!!<BR>"; print $cgi->end_html;
In reply to XML::RSS choking on the webserver by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |