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

■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50 read.htmlに切り替える

レス数が1000を超えています。残念ながら全部は表示しません。

279 名前：◆hikArinCL2 ：06/01/22 00:17 ID:Kjdcjs5k: # 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: # 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のシステムに適合させるかだけです

222KB

新着レスの表示