习鞘6-5.txt

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

@ary1 = (0 .. 9);
@ary2 = (5 .. 10);
print @ary1,"\n", @ary2,"\n";
for ($i = 0; $i < @ary1; $i++) {
    for ($j = 0; $j < @ary2; $j++) {
        if ($ary1[$i] > $ary2[$j]) {
            next;         
        }
        $ary1[$i] += $ary2[$j];
    }
 }
foreach $num(@ary1) {
    print $num,"  ";
}
print "\n", @ary2,"\n";