[RSS]QRSS.pmを使ってみた

RSS.pm改造

を受けて、自前RSS生成スクリプトをコピって改造。ちょっと苦労したけどできたできたー。

$rss = new QRSS;
$rss->add_module(prefix => 'dc');
$rss->add_module(prefix => 'content');
$rss->add_stylesheet('sharlinfo.xsl');

$rss->channel(
              title        => $pagetitle,
              link         => $pageuri,
              description  => $pagedescription,
              dc => {
                  date       => $dcdate,
                  subject    => "diary",
                  creator    => $creator,
                  publisher  => $publisher,
                  rights     => sprintf($copyright, $year),
                  language   => 'ja',
              },
              );
$rss->image(
            title  => $publisher,
            url    => $imageuri,
            link   => $pageuri,
            );

my $idx = 0;
for (reverse sort @targets) {
    $rss->add_item(
                   title       => $caption{$_},
                   link        => $_,
                   description => $description{$_},
                   dc => {
                       subject => $subject{$_},
                       date    => $dcdate{$_},
                   },
                   content => {
                       encoded => $content_encoded{$_},
                   },
                   );
    last if (++$idx >= $max_items);
}

あんまり手間はかわらんという(汗;