Thread Avatare Chat in Perl: kennt sich jemand damit aus (6 answers)
Opened by talis at 2003-11-07 16:19

Ishka
 2003-11-07 17:05
#70135 #70135
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Das würde ich nicht tun.

Wenn du es als Teil einer Webseite haben willst, wird das entwerder einen sehr hohen Traffic verursachen, oder nicht auf allen Browsern laufen.

Im Prinzip mußt du nämlich entweder ständig die Seite neuladen, oder mit nem Script beständig feststellen, ob jemand was gesagt hat.
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

View full thread Avatare Chat in Perl: kennt sich jemand damit aus