Thread Avatare Chat in Perl: kennt sich jemand damit aus
(6 answers)
Opened by talis at 2003-11-07 16:19
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} |