程嶏清单7-11.txt

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

$var = 1;
$line = <STDIN>;
while ($var < 10) { 
    $result = $line =~ /$var/o;
    $line = <STDIN>; 
    $var++;
}