Tic tac toe

[Jeff Connelly]

295 characters. Can anyone come up with a shorter one?

$_="- - -\n"x3;
$"=o;W:while($"=($"eq x?o:x)){$i=0;$O=$_;$O
=~s/-/$i++/ge;print$O.$";$H=<>;$w=0;s/-/$w++==$H?$":$&/egs
;$B=$_;for$P(o,x){s/$P{3}/$&/;s/($P . .\n){3}/$&/;
s/(. $P .\n){3}/$&/;s/(. . $P\n){3}/$&/;
s/$P . .\n. $P .\n. . $P/$&/;s/. . $P\n. $P .\n$P . ./$&/;
last(W)if$&=~m/o|x/}$_=$B}print

[delirium]

Can anyone come up with a shorter one?
Only 4 years late, but yes:

@r=(123,456,789,147,258,369,159,357);$,=$/;$p=X;
sub d{print@r[0..2],$p;die$_[0]if@_}
n:d;$m=<>until grep$m=~/\d/&&s/$&/$p/,@r;
d"Tie"if!map/\d/,@r;d$p if map/$p{3}/,@r;
$p=~tr/XO/OX/;goto n

190 characters.

[ChuckularOne]

Way cool! The cntl-C works fine for me as an exit! I can tell when there's been a winner ;) even on the occasions the program doesn't notice.

Your Humble Servant,
-Chuck

[BigJoe]

Pretty slick but there is no way to exit.

--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.

[maverick]

It exits when one of the players wins.

Slick piece of code BTW.

/\/\averick

[BigJoe]

Tried that and it didn't exit. i had 3 accross the middle just playing. Then I went and filled every one and it still didn't let me out.

--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.

[vek]

Extremely late to the party but I had to comment. Very slick, nice job :-)

-- vek --