RSS生成スクリプトのサンプル

（例）

$item_title = "dt";     #タイトルとリンクを抜き出す要素
$item_descr = "dd";     #説明文を抜き出す要素
$host = "http://your.domain";

#ソースからタイトル、リンク、説明文を抽出
while(<>){
  if(m|<${item_title}.*?><a href="(.*?)">(.*?)</a>|){
    $link[++$items] = $1;
    $items_list .= qq(    <rdf:li rdf:resource="$host$1"/>\n);
    $title[$items] = $2;
    $isItem = 1;
  }elsif(m|<${item_descr}.*?>(.*?)</${item_descr}>| and $isItem){
    $str = $1;
    $str =~ s/<.*?>//g; #不要なマークアップを削除
    $descr[$items] = $str;
    $isItem = 0;        #説明文は1要素だけにしておく
  }
}

#以下、RSSの構文に従って出力
print <<EOF;
<?xml version="1.0" encoding="utf-8" ?>
<rdf:RDF 
  xmlns="http://purl.org/rss/1.0/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xml:lang="ja">
 <channel rdf:about="http://your/rss/file">
  <title>Your Channel Title</title>
  <link>http://your/home/page</link>
  <description>Your channel description</description>
  <items>
   <rdf:Seq>
$items_list
   </rdf:Seq>
  </items>
 </channel>

EOF

for $i (1..$#link){
  print <<EOF;
 <item rdf:about="$host$link[$i]">
  <title>$title[$i]</title>
  <link>$host$link[$i]</link>
  <description>$descr[$i]</description>
 </item>

EOF
}

print "</rdf:RDF>\n";