SPUG: XML::RSS error

[luis medrano]

Here is the funny thing. I ran the script this morning and I didn't have any
errors of any kind. My question is why this error is showing yesterday and
not today.

Here is the script:

#!/usr/bin/perl
use strict;
use LWP::Simple;
use XML::RSS;
my @feeds;
#yahoo_rss is a file with rss url such as this:
#http://news.search.yahoo.com/news/rss?p=mac&ei=UTF-8&fl=0&x=wrt
my $file_list="yahoo_rss.txt";
open (FILE,$file_list) or die;
my @list=<FILE>;
close(FILE);
foreach  my $line (@list){
        chomp($line);
        my ($tmp,$yahoo)=split(/\t/,$line);
        push @feeds, $yahoo;
}




foreach my $url (@feeds){
        my $rss=XML::RSS->new();
        my $data=get($url);
        $rss->parse($data);
        my $channel=$rss->{channel};
        my $image=$rss->{image};
        foreach my $item(@{$rss->{items}}){
                my ($tmp,$link)=split(/\*/,$$item{link});
                $link=~s/\%3A/\:/g;
                print qq| <center><h3><a href
="$link">$$item{title}</a></h3></center></br></br>$$item{description}</br></br>|;
        }

}



On 9/18/06, Jeremy G. Kahn <kahn at cpan.org> wrote:
>
> It appears that your $data is probably empty or not valid XML.  put in
> some warnings  after line 2 of your exmaple?
>
> or maybe post an entire test script?
>
> -jeremy
>
> luis medrano wrote:
> > I trying to run this code:
> >
> > my $rss=XML::RSS->new();
> > my $data=get($url);
> > $rss->parse($data);
> >
> > but at the moment when I run this code I have this error:
> >
> > no element found at line 1, column 0, byte -1 at
> > /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi/XML/Parser.pm
> > line 187
> > $ vi
> > /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi/XML/Parser.pm
> > $ vi
> > /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi/XML/Parser.pm
> > ------------------------------------------------------------------------
> >
> > _____________________________________________________________
> > Seattle Perl Users Group Mailing List
> >      POST TO: spug-list at pm.org
> > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list
> >     MEETINGS: 3rd Tuesdays
> >     WEB PAGE: http://seattleperl.org/
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/spug-list/attachments/20060919/7b8e2f3b/attachment.html