程嶏清单7-11.txt

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

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