Mein Programm mag mich nicht. Es verschickt gerade tausende leere Datenpackete - dh. nur mit Header. Wär ansich noch nicht so ein schlimmer Fehler, aber dahinter wartet bestimmt schon der nächste, nachdem ich gerade durch zig Fehler durchgelatscht bin (vergessen port anzugeben, auf das Ende einer while(defined)-Schleife gewartet, wobei die Varable in der Schleife nur mit .= verändert wurde..). Ich glaube das ist nicht so ganz mein Programmiertag..
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}