カテゴリ名一覧のテキストファイル作成
2008-09-14-4
[Chalow]
カテゴリ指定で RSS をフィルタリングする CGI で使うために、chalow のカテゴリ名一覧リストをどこか外部ファイルへ置いておきたい。
とりあえず今は下記の簡単なスクリプトで、cl.itemlist から作成。
mkcatlist.pl
第一引数が cl.itemlist で、第二引数は出力先(カテゴリ名一覧)ファイル名。
あとで、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 本体に入れる予定。
というか、入れるべきか検討する予定。