程嶏清单3-8.txt

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

@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";