古い記事
ランダムジャンプ
新しい記事
カテゴリ指定で RSS をフィルタリングする CGI で使うために、chalow のカテゴリ名一覧リストをどこか外部ファイルへ置いておきたい。
とりあえず今は下記の簡単なスクリプトで、cl.itemlist から作成。

mkcatlist.pl
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
my ($in_fn, $out_fn) = @ARGV;
my %cats;
open(my $fh, "<:encoding(euc-jp)", $in_fn) or die;
while (<$fh>) {
next unless s/^[^\t]+\t([^\t]+)\t.+$/$1/;
$cats{$1}++ while (m/\[(.+?)\]/g);
}
close $fh;
open(my $fo, ">:utf8", $out_fn) or die;
print $fo join("\n", sort keys %cats), "\n";
close $fo;

第一引数が cl.itemlist で、第二引数は出力先(カテゴリ名一覧)ファイル名。
あとで、chalow 本体に入れる予定。
というか、入れるべきか検討する予定。