Hi all.
I am in the process of writing an RSS aggregator for a professor and he is not willing to install modules himself or permit anyone else to do so ( annoying indeed ). Therefore, I am relegated to using regexes. In the process of testing the tool on thraxil.org, I noticed there is no output displayed. My code ( thus far ):
#!c:\perl\bin\perl.exe -w
use strict;
use LWP::Simple;
use CGI qw( :standard );
print "Content-type: text/html\n\n";
print start_html;
my $data = get("http://thraxil.org/rss");
my $scalar;
open (F, ">test.txt") or die $!;
print F $data;
close F;
open( F2, "<test.txt" ) or die "Error : $!\n";
while(<F2>) {
if ( /<title>\s*(.*?)\s*<\/title><link>(.*?)<\/link>/m )
{
print "<a href=$2>$1</a><br><br>";
}
}
close F2;
print end_html();
The rss source I am trying to parse can be seen at http://thraxil.org/rss.
I need to capture the title, link, and description data then display each group of three with the <link> info as a hyperlink to the article / node.
I feel as though I am quite close but a little assistance would be quite beneficial.
Thanks,
-Katie.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|