▼スレッド
│
└◇110:Re[2]:年度を100年戻す方法 [moon] 03/01 01:14

　└◇111:Re[3]:年度を100年戻す方法 [わに_wa] 03/01 <

前レスからの回答続き


具体的には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が多くなっていくと非常に多くのリソースを食うのでご了承くださいませ。

動かなかったら適当にがんばってください（笑）


> 勝手なお願いですが、どうかよろしくお願いいたします。


あれ、三つ目は？

一つ目の年度の件は、おかげ様で無事に戻すことができました。
有難うございました。

二つ目は、やっぱり無理があったのかエラーが出てしまいました。
エラー･ログによると「1219行目に認識できない文字がある」だそうです。
無茶なお願いをして申し訳ございませんでした。

お忙しいのに、迅速にお返事を下さって、本当にどうもありがとうございます。
三つ目の質問、二つ目で既にコーフンしすぎて、きくのわすれてました。
新規で登校させていただきます。すみません