Question

尝试从Photobucket读取和解析RSS提要，并且我很难获得该元素的子元素。以下是RSS XML示例：

<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:media="http://search.yahoo.com/mrss/">
    <channel>
        <title>BlahBlah&apos;s Photobucket websitePic album media</title>
        <description>A feed of BlahBlah&apos;s images and videos for this album</description>
        <pubDate>Sun, 7 Aug 2011 20:11:31 MDT</pubDate>
        <link>http://s1100.photobucket.com/albums/g409/BlahBlah/websitePic/?sort=ascending</link>

        <lastBuildDate>Mon, 13 Feb 2012 21:04:43 MST</lastBuildDate>
        <generator>Photobucket feed generator</generator>
        <language>en-us</language>
        <ttl>60</ttl>
        <item>
            <title>F1 sidecar</title>

            <link>http://s1100.photobucket.com/albums/g409/BlahBlah/websitePic/?action=view&amp;current=IMG_0673.jpg&amp;sort=ascending</link>
            <dc:creator>BlahBlah</dc:creator>
            <description>&lt;p&gt;&lt;a href=&quot;http://s1100.photobucket.com/albums/g409/BlahBlah/&quot;&gt;BlahBlah&lt;/a&gt; posted a photo&lt;/a&gt;&lt;/p&gt;&lt;p&gt;&lt;a href=&quot;http://s1100.photobucket.com/albums/g409/BlahBlah/websitePic/?action=view&amp;current=IMG_0673.jpg&amp;sort=ascending&quot; title=&quot;IMG_0673.jpg&quot;&gt;&lt;img src=&quot;http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/th_IMG_0673.jpg&quot; alt=&quot;IMG_0673.jpg&quot; /&gt;&lt;/a&gt;&lt;br&gt;F1 sidecar - IMG_0673.jpg&lt;/p&gt;</description>

            <guid>http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/IMG_0673.jpg</guid>
            <enclosure type="image/jpeg" url="http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/IMG_0673.jpg" />
            <media:content medium="image" type="image/jpeg" url="http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/IMG_0673.jpg">
                <media:title>F1 car</media:title>
                <media:description />
                <media:thumbnail url="http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/th_IMG_0673.jpg" />
            </media:content>
            <pubDate>Sun, 7 Aug 2011 20:11:31 MDT</pubDate>

        </item>

我想要获取元素来获取它的价值。这是我的代码，它不起作用......

use strict;
use CGI;
use XML::RSS;
use LWP::Simple;

my $test = CGI->new;
my $url = "http://feed1100.photobucket.com/albums/g409/BlahBlah/websitePic/feed.rss";

my $rss = XML::RSS->new();
my $data = get( $url );
$rss->parse( $data );

$rss->add_module(prefix=>'media', uri=>'http://search.yahoo.com/mrss/');

print $test->header("text/html");

my $channel = $rss->{channel};

foreach my $item ( @{ $rss->{items} } )
{
    my $link  = $item->{link};
    my $title = $item->{title};
    my $thumb = '';

    foreach my $b ( { $item->{'http://search.yahoo.com/mrss/'}->{'content'} })
    {
        print "here\n";
        if( $b->{'http://search.yahoo.com/mrss/'}->{'thumbnail'}->{'url'} )
        {
            $thumb = $thumb . ' ' . $b->{'http://search.yahoo.com/mrss/'}->{'thumbnail'}->{'url'};
        }
    }

    print $title, "\n", $link, "\nthumb=", $thumb, "\n\n\n";
}

print $test->end_html;

它将循环遍历所有通道项，并将找到该元素，但我似乎无法获取子元素。我认为我的语法很接近。想法？

Answer 1

您的示例中的

items内容被解析为此结构：

items => [
  {
    dc => {
      creator => "BlahBlah"
    },
    description => "<p><a href=\"http://s1100.photobucket.com/albums/g409/BlahBlah/\">BlahBlah</a> posted a photo</a></p><p><a href=\"http://s1100.photobucket.com/albums/g409/BlahBlah/websitePic/?action=view&current=IMG_0673.jpg&sort=ascending\" title=\"IMG_0673.jpg\"><img src=\"http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/th_IMG_0673.jpg\" alt=\"IMG_0673.jpg\" /></a><br>F1 sidecar - IMG_0673.jpg</p>",
    enclosure => {
      type => "image/jpeg",
      url => "http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/IMG_0673.jpg"
    },
    guid => "http://i1100.photobucket.com/albums/g409/BlahBlah/websitePic/IMG_0673.jpg",
    "http://purl.org/dc/elements/1.1/" => {
      creator => "BlahBlah"
    },
    "http://search.yahoo.com/mrss/" => {
      content => "\n                ...",
      title => "F1 car"
    },
    isPermaLink => "",
    item => "\n            \n\n ...",
    link => "http://s1100.photobucket.com/albums/g409/BlahBlah/websitePic/?action=view&current=IMG_0673.jpg&sort=ascending",
    pubDate => "Sun, 7 Aug 2011 20:11:31 MDT",
    title => "F1 sidecar"
  }
],

例如，我在"thumbnail"下看不到任何"http://search.yahoo.com/mrss/"键。最好转储数据以查看它们的确切外观。请参阅Data::Dump之类的模块。

Answer 2

在这一行上看起来像是一个错字：

foreach my $b ( { $item->{'http://search.yahoo.com/mrss/'}->{'content'} })

我认为你在第一个“{”之前错过了一个“@”。

使用perl解析Photobucket RSS feed？

2 个答案: