初学练习，用perl写的命令行五子棋

hongyunqi

还真能运行
拷个界面让大家看下

  a b c d e f g h i j k l m n o p
a @ + + + + + + + + + + + + + + +
b + o + + + + + + + + + + + + + +
c + + o + + + + + + + + + + + + +
d + + + + + + + + + + + + + + + +
e + + + + + + + + + + + + + + + +
f + + + + + + + + + + + + + + + +
g + + + + + + + + + + + + + + + +
h + + + + + + + + + + + + + + + +
i + + + + + + + + @ + + + + + + +
j + + + + + + + + + + + + + + + +
k + + + + + + + + + + + + + + + +
l + + + + + + + + + + + + + + + +
m + + + + + + + + + + + + + + + +
n + + + + + + + + + + + + + + + +
o + + + + + + + + + + + + + + + +
p + + + + + + + + + + + + + + + +
[Black] side turn...

shenxiaocheng

顶。。。。。。。

qwert_13

好玩~~~~学习了~~~~~

yangds_cu

如果能用网络互联就好了呵呵～

dimitq

sub checkTraverseWin {
    for(@cells) {#0..$#cells) {
        my $time;
        for my $chess (@{$_}) {#$cells[$_]})
這里for的{和)我真沒看懂- -,能否說明下!

shang2010

赞，这年 头，肯写代码的程序员真的是太少了

兰花仙子

原帖由 dimitq 于 2010-1-29 19:42 发表

這里for的{和)我真沒看懂- -,能否說明下!

sub checkTraverseWin {
    for(@cells) {  # 1
        my $time;
        for my $chess (@{$_}) {  # 2


这里第一个for是对@cells数组进行遍历。
@cells数组的每个元素，都是一个匿名数组（或者数组引用）。
所以@{$_}表示解引用这个匿名数组。
第二个for就是对解引用后的数组进行遍历了。

dimitq

謝謝仙子的解釋.原來是注釋!!!
因為括號和大括號的不匹配,讓我疑惑了- -!

兰花仙子

其实不怪你误会，这种注释风格不好，有故意误导之嫌~

dimitq

還是萬分感謝!!!