▼スレッド
│
└◇818:Re[8]:現在の参加者表示 [moon] 10/10 19:35

　└◇819:できました！ [mizuho] 10/11 16:45<-last

> 今後継続的な表示はあきらめるとして、原因だけでも知りたいのですが、何故だかわかるでしょうか？

ちゃんと見てみたらsub player_dataが実行される状況ではlist_orderで参加者の判定は行わないので0人になるのが正常です。
参加者を表示するためには次のようなサブルーチンを追加してください。
&unlockは実行していないのでsub player_data以外で実行しても大丈夫です。

sub get_active{
　　&get_file;
　　&list_in;
　　$playernow = 0;
　　$current = '';
　　my ($aid, $anm, $afg);
　　foreach(0 .. $#lstlines){
　　　　($aid, $anm, $afg) = (split(/<>/, $lstlines[$_]))[0, 1, 27];
　　　　if($afg eq '' || index($afg, 'B') != -1){
　　　　　　$playernow++;
　　　　　　$current .= "[$aid]$anm ";
　　　　}
　　}
}

試してみたら、表示されました！
ご丁寧にどうもありがとうございました♪
今後ともどうぞよろしくお願いしますm(_"_)m