前レスからの回答続き
具体的には1145行目辺りの
# ログリスト読み込み
sub dir {
のサブルーチンの中で指定をします。
1218行目辺り、
} else {
print qq|<option value="$cgi?log=$_">|;
print substr($_,0,2) ."年";
print substr($_,2,2) ."月\n";
}
これを
} else {
open (INLOG,"$direct/$_");
@view = <INLOG>;
close(INLOG);
foreach $view (@view) {
(@_) = split(/\t/,$view);
print qq|<option value="$cgi?log=$_&id=$_[4]">|;
print $_[2] ."\n";
}
}
このようにすればできるような気がします。
（動作確認してないので動かない場合あり）
ちなみにこれだと全てのタイトルを表示してしまうので、
LOGが多くなっていくと非常に多くのリソースを食うのでご了承くださいませ。
動かなかったら適当にがんばってください（笑）
> 勝手なお願いですが、どうかよろしくお願いいたします。
あれ、三つ目は？
|