首页 > 代码库 > perl中foreach(一)
perl中foreach(一)
perl中的foreach结构
首先语法
foreach $rock(qw /bedrock slate lava/){
$rock="\t$rock";
$rock .="\n";
}
Foreach 从列表(数组)的第一个元素一直循环执行到最后一个元素,一次迭代一个。控制变量(本例中为$rock)每一次迭代从列表中取出一个新值。第一次为 “ bedrock” ,第三次为 “ lava” 。控制变量不是这些列表元素中的一个拷贝而是这些元素本身。 也就是说,如果在循环中修改这个变量,那原始列表中的元素也会被修改,如下面代码段所显示。这条性质是有用的,但是,如果不清楚,可能对其结果感到吃惊。
当循环结束时$rock 的值为多少呢?其值同循环开始之前相同。foreach 循环中控制变量的值会被 Perl 自动保存和恢复。当循环进行时,是没有办法改变其值的。循环结束时,变量的值会回到循环开始前,如果没有值则为 undef。这意味着如果有一个变量和控制变量有相同的名字:“ $rock” ,不用担心会混淆它们。
当循环结束时$rock 的值为多少呢?其值同循环开始之前相同。foreach 循环中控制变量的值会被 Perl 自动保存和恢复。当循环进行时,是没有办法改变其值的。循环结束时,变量的值会回到循环开始前,如果没有值则为 undef。这意味着如果有一个变量和控制变量有相同的名字:“ $rock” ,不用担心会混淆它们。
需要注意的问题:
1,其他语言的循环变量一般是循环元素的拷贝,改变循环变量的值不会改变原来元素的值。但perl不同,perl的循环变量是指向循环元素的物理地址的,所以对循环变量进行更改,就是对原来的循环元素进行了更改。
2,当循环结束时,$rock(循环变量)的值恢复为循环开始前的值,这是另外一个跟其他语言的不同的地方。
#! /usr/bin/perl -W
use strict;
my @array = (1 .. 9);
my $num;
foreach $num(@array)
use strict;
my @array = (1 .. 9);
my $num;
foreach $num(@array)
{
$num **= 2;
}
print "@array\n";
输出如下:
1 4 9 16 25 36 49 64 81
在这里很重要的一点在于,控制变量$num代表着@array中的一个特定项目。如在一个foreach结构的主体内修改控制变量的值,会同时改变控制变量当前代表的那个@array元素。
因此每次执行foreach内的代码时,@array的当前值都会发生变化
}
print "@array\n";
输出如下:
1 4 9 16 25 36 49 64 81
在这里很重要的一点在于,控制变量$num代表着@array中的一个特定项目。如在一个foreach结构的主体内修改控制变量的值,会同时改变控制变量当前代表的那个@array元素。
因此每次执行foreach内的代码时,@array的当前值都会发生变化
perl中foreach(一)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。