Skip Menu |
 

This queue is for tickets about the XML-RSS CPAN distribution.

Report information
The Basics
Id: 117540
Status: open
Priority: 0/
Queue: XML-RSS

People
Owner: Nobody in particular
Requestors: ken.ingram [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: BUG: guid field will not be retrieved
Date: Mon, 5 Sep 2016 12:24:09 -0700
To: bug-XML-RSS [...] rt.cpan.org
From: Ken Ingram <ken.ingram [...] gmail.com>
Download (untitled) / with headers
text/plain 1.2k
#!/usr/bin/perl -w use strict; use diagnostics; use POSIX qw(strftime); use Data::Dumper; use DateTime; use DBI; use XML::RSS; use LWP::Simple qw(get); use Getopt::Std; use subs qw(recordCheck setMonth updateDB insertData downloadFile cycleEntries); use subs qw(updateData insertData downloadFile dbCall); my ($dt, $year, $month, $day,$hour,$minute,$second, $time); my ($duration, $author, $show_date, $original_link, $description, $link); my (@date, @tmp_filename, @result,@to_download, @entry); my ($tmp, $file_num, $filename, $sth, $row, $item, $title, $guid, $entry); my (@filenum_sorted, @data, @update, @insert, @download); my (%entry,%temp); my $url="http://recordings.talkshoe.com/rss44889.xml"; my $rss = XML::RSS->new; my $data = get($url); $rss->parse($data); foreach $item ( @{ $rss->{items} } ){ $author = $item->{'author'}; $title = $item->{'title'}; $guid = $item->{'guid'}; $duration = $item->{'http://www.itunes.com/dtds/podcast-1.0.dtd'}- Show quoted text
>{duration};
$description = $item->{description}; $show_date = $item->{pubDate}; $link = $item->{link}; print $item->{'author'} . "\n"; print $item->{title} . "\n"; print $item->{guid} . "\n"; print $item->{'http://www.itunes.com/dtds/podcast-1.0.dtd'}->{duration} . "\n"; print $item->{description} . "\n"; print $item->{pubDate} . "\n"; print $item->{link} . "\n";
Download (untitled) / with headers
text/plain 730b
Hi Ken, On Mon Sep 05 15:25:02 2016, ken.ingram@gmail.com wrote: Show quoted text
> #!/usr/bin/perl -w > use strict; > > use diagnostics; > use POSIX qw(strftime); > use Data::Dumper;
thanks for the report but unfortunately the code you provided is lacking. Please submit better code that complies with these guidelines: 1. http://perl-begin.org/tutorials/bad-elements/ . 2. http://sscce.org/ . 3. Don't fetch resources from the network because they may change or become unavailable. Instead, put the text inside a here document. 4. Make sure the code is as small and self-contained as possible (see #2). 5. Provide some description in English of the symptoms of the bug. 6. Make sure the code compiles as is. Regards, -- Shlomi Fish
Subject: Re: [rt.cpan.org #117540] BUG: guid field will not be retrieved
Date: Mon, 5 Sep 2016 14:40:54 -0700
To: bug-XML-RSS [...] rt.cpan.org
From: Ken Ingram <ken.ingram [...] gmail.com>
Download (untitled) / with headers
text/plain 941b
Ok. Got it. On Mon, Sep 5, 2016 at 1:53 PM, Shlomi Fish via RT <bug-XML-RSS@rt.cpan.org> wrote: Show quoted text
> <URL: https://rt.cpan.org/Ticket/Display.html?id=117540 > > > Hi Ken, > > On Mon Sep 05 15:25:02 2016, ken.ingram@gmail.com wrote:
> > #!/usr/bin/perl -w > > use strict; > > > > use diagnostics; > > use POSIX qw(strftime); > > use Data::Dumper;
> > thanks for the report but unfortunately the code you provided is lacking. > Please submit better code that complies with these guidelines: > > 1. http://perl-begin.org/tutorials/bad-elements/ . > > 2. http://sscce.org/ . > > 3. Don't fetch resources from the network because they may change or > become unavailable. Instead, put the text inside a here document. > > 4. Make sure the code is as small and self-contained as possible (see #2). > > 5. Provide some description in English of the symptoms of the bug. > > 6. Make sure the code compiles as is. > > Regards, > > -- Shlomi Fish > > >


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.