程嶏清单3-8.txt

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

@a = (1,-7,0.5, 3,34 );
@b =( 0, 1,-3,0.46e2,3.45 );
foreach $item (@a, @b) {
    $item *= 7;
}
print "@a @b\n";