程嶏清单7-9.txt

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

print "Input a number : ";
$number = <STDIN>;
while ($number) {
chomp($number); 
push @array,$number;
    print "Do you want to input another number?  ";
    if (<STDIN> =~ /Y(es)?/i) {
        $number = <STDIN>;
} 
else{
last;
}
}
foreach $number(@array){
print $number,"  ";
}