Lachatで参加者一覧を作るには?

[上に] [前に] [次に]
プリン [E-Mail] [HomePage] 1999/12/22(水) 03:26:42
はじめまして。プリンといいます。
教えていただきたいのは、現在チャットに参加している参加者一覧を
HPのトップで表示する方法なのですが、自分でLachatの参加者表示をもとに作ってみたのですが失敗に終わりました。
自分で作ってみたのは、
#!/usr/bin/perl

require '.setup.cgi';

print "Content-type: text/html\n\n;
open(IN, "user.txt");
$members = <IN>;
close(IN);

print "参加者: ";
$num = @members;
if ($num > 0 {
foreach (@members) {
($m, $h, $n) =split(/\t, $_);
print "<font size=2>$n</font> ";
}
} else {
print "なし\n";
}
}
です。これをsanka.cgiとして呼び出すと、人がいても
「参加者:なし」となってしまうんです。
自分的には($m, $h, $n)周辺が違うのかなとは思っているのですが
どうすればいいかわかりません。
使っているチャットはLachatでSSIは使えないサーバーです。
よろしくお願いします。

minami-s [E-Mail] 1999/12/22(水) 06:05:34
Lachatというのが何なのか知りませんが、
> $members = <IN>;
@members = <IN>;
> if ($num > 0 {
if ($num > 0) {
> ($m, $h, $n) =split(/\t, $_);
($m, $h, $n) =split(/\t/, $_);
というような細かい間違いを直してもだめですか?
(これらは単に発言時の写し間違いでしょうか?)
それと、今回の質問には関係ないでしょうけど
<HTML><HEAD><BODY>等が無いですね。
また、 require '.setup.cgi'; の一行は
(require './setup.cgi'; の間違い?)、
このCGIには要らないと思います。

ぷりん 1999/12/23(木) 02:01:49
[[解決]]
minami-sさんありがとうございます。
@members = <IN>;に直したらできました。あとのif〜と($m,・・・)は写し間違いです。
原因は@としなければいけないとこを$としていた
文法ミスでした(^^; 
本当にありがとうございました。

[上に] [前に] [次に]