Jump to content

Kaao

Active Members
  • Posts

    10
  • Joined

  • Last visited

Posts posted by Kaao

  1. Right now I'm getting this error when it attempts to get the rss feeds.

    not well-formed (invalid token) at line 1, column 0, byte 0 at /usr/lib/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/XML/Parser.pm line 187

    PS

    I am running a Athlon 64 X2 @ 2.4Ghz and a GB of ram with opensuse 10.2 with xgl enabled i dont think it could be too taxing :P

  2. rsserror.jpg

    I assum thats an error in the coding but i dont know anything a bout perl.

    heres my copy.

    #!/usr/bin/perl -w
    
    # rss2html - converts an RSS file to HTML
    
    # It take one argument, either a file on the local system,
    
    # or an HTTP URL like http://slashdot.org/slashdot.rdf
    
    # by Jonathan Eisenzopf. v1.0 19990901
    
    # Copyright (c) 1999 Jupitermedia Corp. All Rights Reserved.
    
    # See http://www.webreference.com/perl for more information
    
    #
    
    # This program is free software; you can redistribute it and/or modify
    
    # it under the terms of the GNU General Public License as published by
    
    # the Free Software Foundation; either version 2 of the License, or
    
    # (at your option) any later version.
    
    
    
    # INCLUDES
    
    use strict;
    
    use XML::RSS;
    
    use LWP::Simple;
    
    
    
    # Declare variables
    
    my $content;
    
    my $file;
    
    
    
    # MAIN
    
    # check for command-line argument
    
    die "Usage: rss2html.pl (<RSS file> | <URL>)n" unless @ARGV == 1;
    
    
    
    # get the command-line argument
    
    my $arg = shift;
    
    
    
    # create new instance of XML::RSS
    
    my $rss = new XML::RSS;
    
    
    
    # argument is a URL
    
    if ($arg=~ /http:/i) {
    
        $content = get($arg);
    
        die "Could not retrieve $arg" unless $content;
    
        # parse the RSS content
    
        $rss->parse($content);
    
    
    
    # argument is a file
    
    } else {
    
        $file = $arg;
    
        die "File "$file" does't exist.n" unless -e $file;
    
        # parse the RSS file
    
        $rss->parsefile($file);
    
    }
    
    
    
    # print the HTML channel
    
    &print_html($rss);
    
    
    
    # SUBROUTINES
    
    sub print_html {
    
        my $rss = shift;
    
        print <<HTML;
    
    HTML
    
    
    
        # print the channel items
    
        my $i = 0;
    
        foreach my $item (@{$rss->{'items'}})
    
        {
    
          next unless defined($item->{'title'});
    
          print "$item->{'title'}... ... ... ... ...n";
    
          if($i==4){
    
             last;   
    
          }
    
           $i = $i + 1;
    
        }
    
    
    
        # if there's a copyright element
    
        if ($rss->{'channel'}->{'copyright'}) {
    
       print <<HTML;
    
    <p><sub>$rss->{'channel'}->{'copyright'}</sub></p>
    
    HTML
    
        }
    
    
    
        print <<HTML;
    
    HTML
    
    }

×
×
  • Create New...