* 別チャットの参加者表示 [#uc0eafba]
- ページ: [[罪罰改造板３]]
- 投稿者: [[卑弥呼]]
- 優先順位: 低
- 状態: 提案
- カテゴリー: こんなのが欲しい♪
- 投稿日: 2008-03-05 (水) 16:31:15
- バージョン:
** メッセージ [#zf6e3f47]
たとえば、各国作戦会議室などに、交流広場の参加者を表示する、といったことをしたいのですが、どのようにしたらいいのでしょうか？ヒントだけでも教えてください
--------
- 国際の参加者集計処理の際に、（system呼び出して）国データに記録。→会議室の更新処理の際に、（system呼び出して）国データから先程記録させた数値を取り込んで表示。＞＞考え方としてはこんな感じになるかと思います。ベンツさんの神の声あたりを検索＆参照すると良いかもしれません。 -- [[三毛猫]] &new{2008-03-05 (水) 17:10:24};
- せっかく教えていただいたのですが、全く違う方法でできました。すみません。
sub member2 {
open(IN,"$memfile2") || &error("Open Error : $memfile2");
@data = <IN>;
close(IN);
$member2="";
@new1=();
$flag3=0;
$flag4=0;
foreach (@data) {
($time3,$name4,$host4,$mv_mode3,$mv_type3) = split(/<>/);
# 更新用配列 @new に追加
if ($name4 ne "$host4") {
push(@new1,$_);
# 参加者表示用文字列を作成
if(!$flag2){
$member2 .="$name4◇" if($mv_mode3 eq 'pc');
$member2 .="$name4($mv_type3)◇" if($mv_mode3 eq 'mv');
$flag4=1;
}else{
$member2 .=",$name4さん" if($mv_mode3 eq 'pc');
$member2 .=",$name4($mv_type3)さん" if($mv_mode3 eq 'mv');
$flag4=0;
}
}
}
$num2 = @new1;
# ファイル更新
open(OUT,">$memfile2") || &error("Write Error : $memfile2");
eval "flock(OUT,2);";
truncate(OUT,0);
seek(OUT,0,0);
print OUT @new1;
close(OUT);
}
というように
-- [[卑弥呼]] &new{2008-03-05 (水) 19:16:05};
#comment
