程嶏清单6-15.txt

< linux网络编程工具>>配套源码

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