perl 解析xml问题

[PithornDawn]

完全不会perl哈...捡到了一个脚本改改

比如

https://www.archlinux.org/feeds/news/

如何提出里面所有的<item>?

代码： 全选

171   my %xmlin_opts = (
172     ForceArray => [ qw/item entry/ ],
173     KeyAttr => []
174   );
175 
176   $feed->{index} = XMLin($xml, %xmlin_opts) or
177     die "error reading rss file $feed->{feedfile}";
178 
179   $feed = Feed->new($feed);

这样得到的$feed 是从

代码： 全选

  9 'version' => '2.0',
 10 'channel' => {
 11            'atom:link' => {
 12                           'rel' => 'self', 
 13                           'href' => 'https://www.archlinux.org/feeds/news/'
 14                         },
 15            'lastBuildDate' => 'Mon, 08 Dec 2014 02:13:14 +0000', 
 16            'title' => 'Arch Linux: Recent news updates',
 17            'description' => 'The latest and greatest news from the Arch Linux distribution.',
 18            'item' => [
 19                      {
 20                        'title' => 'GnuPG-2.1 and the pacman keyring',
 21                        'dc:creator' => {
 22                                        'content' => 'Gaetan Bisson',

开始的，就是说多了一层，我想从channel这层的里面开始，怎么办？
当然不是所有的feed中<item>的上一层都是<channel>, 求教

[grey_ubuntu]

懂一点perl但是完全不懂XML，所以，有点不太明白你想干什么。

[PithornDawn]

懂一点perl但是完全不懂XML，所以，有点不太明白你想干什么。

卧槽这个坟都被挖出来了。。

这个脚本已经被我调的差不多能用了，在这里推销一下哈：

rssdrop

A Perl script to deliver rss feeds to maildir

https://github.com/petronny/rssdrop

欢迎大家报bug..