• 热门专题

Perl改变数组元素值的方法

作者:  发布日期:2015-05-26 20:39:48
Tag标签:数组  元素  方法  
  • 用for循环对每个数组元素重新赋值:
    #!/usr/bin/perl
    @array = (1..30);
    print "@array
    ";
    for($i=0; $i<=$#array; $i++){
    	$array[$i] = $array[$i] + 10;
    }
    print "@array
    ";

    用while循环对每个数组元素重新赋值:

    #!/usr/bin/perl
    @array = (1..30);
    $count = 1;
    print @array;
    
    while($count <= @array){
    	$array[$count - 1] += 10;
    	$count++;
    }
    print @array;
    用foreach循环对每个数组元素重新赋值:(foreach可以多多个数组进行操作)
    #!/usr/bin/perl
    @array = (1..30);
    print "@array
    ";
    @array_1 = (31..60);
    foreach $item (@array,@array_1){
    	$item += 10;
    }
    print "@array
    ";
    print "@array_1
    "

     

About IT165 - 广告服务 - 隐私声明 - 版权申明 - 免责条款 - 网站地图 - 网友投稿 - 联系方式
本站内容来自于互联网,仅供用于网络技术学习,学习中请遵循相关法律法规