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

ちゃんと見てみたら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 ";
　　　　}
　　}
}

▼関連発言
│
└◆803:現在の参加者表示 [mizuho] 10/08 15:56
　└◆806:Re:現在の参加者表示 [moon] 10/08 20:04
　　└◆807:Re[2]:現在の参加者表示 [moon] 10/08 20:10
　　　└◆809:Re[3]:現在の参加者表示 [mizuho] 10/09 11:49
　　　　└◆811:Re[4]:現在の参加者表示 [LIM] 10/09 19:08
　　　　　└◆813:Re[5]:現在の参加者表示 [moon] 10/09 19:36
　　　　　　└◆814:Re[6]:現在の参加者表示 [moon] 10/09 19:43
　　　　　　　├◆815:Re[7]:現在の参加者表示 [mizuho] 10/10 10:17
　　　　　　　└◆816:Re[7]:現在の参加者表示 [mizuho] 10/10 10:25
　　　　　　　　└◆818:Re[8]:現在の参加者表示 [moon] 10/10 19:35
　　　　　　　　　└◆819:できました！ [mizuho] 10/11 16:45<-last