初學(xué)練習(xí)，用perl寫的命令行五子棋

hongyunqi

還真能運(yùn)行
拷個(gè)界面讓大家看下

  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

好玩~~~~學(xué)習(xí)了~~~~~

yangds_cu

如果能用網(wǎng)絡(luò)互聯(lián)就好了呵呵～

dimitq

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

shang2010

贊，這年 頭，肯寫代碼的程序員真的是太少了

蘭花仙子

原帖由 dimitq 于 2010-1-29 19:42 發(fā)表

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

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


這里第一個(gè)for是對(duì)@cells數(shù)組進(jìn)行遍歷。
@cells數(shù)組的每個(gè)元素，都是一個(gè)匿名數(shù)組（或者數(shù)組引用）。
所以@{$_}表示解引用這個(gè)匿名數(shù)組。
第二個(gè)for就是對(duì)解引用后的數(shù)組進(jìn)行遍歷了。

dimitq

謝謝仙子的解釋.原來是注釋!!!
因?yàn)槔ㄌ?hào)和大括號(hào)的不匹配,讓我疑惑了- -!

蘭花仙子

其實(shí)不怪你誤會(huì)，這種注釋風(fēng)格不好，有故意誤導(dǎo)之嫌~

dimitq

還是萬分感謝!!!