I know.+jsRSS++2.0β

Tweet

my $site = shift @DATA;
{ my %cnt; @DATA = grep(!$cnt{$_}++,@DATA); }
@DATA = map { $_ -> [0] } reverse sort { $a -> [1] cmp $b -> [1] } map { [$_,split(/\t/)] } @DATA;
unshift @DATA,$site;
 

これで I know. の RSS がなぜ化けるか、っていうことが問題です。

化けるときは、@DATA には、feed/ に入っている前回取得後加工済みのテキストと、今回取得した RSS が合体して入っているのですね。

２行目は、@DATA から重複している分を取り除く作業。ここまではよい。

３行目は、わかりにくいけど、日付でソート。ここを外したら化けなくなりました。きっとここが原因。

実はJcode も外している。

動いているからいいか。

2004.10.31 18:00 投稿　大野 義貴 [RSS] | 固定リンク |