Nest of Snowy Owls

RSS Feed

［/blosxom］

blosxom.orgの記事を参考に、RSSを配信できるようにしてみました。漢字コードはEUCになってます。どうせ半角カナ使わないし。とりあえずHeadline-Readerとパラボナミニでは見られることを確認済みです。

ついでにforshortenendをいじってみることに。やりたいのは、

• データの中で二回改行している部分まで出力して、その後は省略
• meta-creation-dataの部分を消す

の二点。前者はblox対策（最初の段落だけ出す）、後者はmetaとentriescache対策。といっても中の関数を

sub story {
my($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;

$body = $$body_ref;
$body =~ s/<.+?>//gs;
$body =~ s/meta-creation_date: [0-9:\/\s]*//g;
$body =~ s/\n\n/\n/gs;
$body =~ s/\n\n.+$/.../s;
$body =~ s/\n//gs;

1;
}

ってなおしただけなんだけど。

2003.3.14追記: これだと余計なところまで正規表現がマッチしてしまうので 修正が必要です。正しくは、

sub story {
my($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;

$body = $$body_ref;
$body =~ s/<.+?>//gs;
$body =~ s/meta-creation_date: [0-9:\/ ]*//g;
$body =~ s/\n\n/\n/gs;
$body =~ s/\n\n.+$/.../s;
$body =~ s/\n//gs;

1;
}

としなくてはなりません(５行目の\sを半角スペースで置き換える)。

Posted at 03:49 / Permanent Link / Comments(0) / Edit