程嶏清单6-15.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 8 行

@array = ("A".."Z");
for ($index = 0; $index < @array; $index++) {
    if ($array[$index] eq "T") {
        last;
    }
}
print("$index\n");