Perlを使ってPhotobucket RSSフィードを解析するには？

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事は、この構造に解析されます。たとえば、私は"http://search.yahoo.com/mrss/"の下で任意の"thumbnail"キーが表示されない

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" 
    } 
], 

。どのように見えるかを確認するためにデータをダンプすることをお勧めします。そのためにはData::Dumpのようなモジュールを見てください。

Answer 2

これは、この行のタイプミスのようになります。

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

私はそこに「{」あなたは最初の前に「@」を逃していると思います。あなたの例から