しゃある通信

#04-04 [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);
}
あんまり手間はかわらんという(汗;



マクロミルへ登録

© 2004 Kazuya 'Sharl' Masuda
(C)Willoo Entertainment Inc. (C)Konami Digital Entertainment 株式会社ウィローエンターテイメント及び株式会社コナミデジタルエンタテインメントの著作権を侵害する行為は禁止されています。 0.003438 cached