下
批判・要望・意見スレッド

---

279:◆hikArinCL2 06/01/22 00:17 ID:Kjdcjs5k [sage] # 2nnシステムの冒頭で。$JcodeはJcodeオブジェクト use XML::RSS::LibXML; my $rdf = XML::RSS::LibXML->new; my $description = '２ちゃんねるのニュース速報＋系６板を自動解析し、'; $description .= '人気の高いニュース及び最新のニュースを'; $description .= 'リアルタイムで計算・抽出して提供しています。'; $rdf->channel( 'title' => '2nn.jp RSS', 'link' => 'http://www.2nn.jp', 'description' => $Jcode->set($description)->utf8, 'dc' => { 'date' => get_date(time), 'creater' => 'webmaster@2nn.jp', 'publisher' => 'webmaster@2nn.jp', 'rights' => 'Copyright 2004-2005 2nn.jp', 'language' => 'ja-JP', } ); sub get_date { my @date = localtime($_[0]); sprintf('%04d-%02d-%02dT%02d:%02d:%02d+09:00', $date[5] + 1900, $date[4] + 1, $date[3], $date[2], $date[1], $date[0]); }
280:◆hikArinCL2 06/01/22 00:19 ID:Kjdcjs5k [sage] # 2nnシステムにおける個々の記事の処理 $rdf->add_item( 'title' => $title, # スレッドのタイトル(記事名)、事前にJcodeでutf8化しておく 'link' => $link, # スレッドのリンク 'dc' => { 'date' => get_date($key), # スレッドのキー 'subject' => $subject, # スレッドが立てられた掲示板名、事前にJcodeでutf8化しておく }, ); # 2nnシステムにおける処理の最後 open my $fh, '>', 'index.rdf' or die $!; binmode $fh, ':utf8'; print $fh $rdf->as_string; close $fh or die $!; 以上です。あとはいかに2nnのシステムに適合させるかだけです

上前次1-新書写板AA設索
批判・要望・意見スレッド http://www.2nn.jp/test/read.cgi/temp/1087405802/l50