Perl foreach控制结构中的控制变量

开发 架构
本文向大家介绍一下Perl foreach的概念,Perl语言中可以用Perl foreach处理整个数组或列表,Perl foreach从列表的第一个元素一直循环执行到最后一个元素,一次迭代一个。

本文和大家重点讨论一下Perl foreach用法,Perl语言中可以用Perl foreach处理整个数组或列表,并且控制变量(本例中为$rock)每一次迭代从列表中取出一个新值。

Perl foreach控制结构中的控制变量

Perl语言中可以用Perl foreach处理整个数组或列表。Perl foreach从列表的第一个元素一直循环执行到最后一个元素,一次迭代一个: 

  1. Perl foreach$rock(qw{bedrockslatelava}){  
  2. print“Onerockis$rock.\n”;  
  3. }  
  4.  

 控制变量(本例中为$rock)每一次迭代从列表中取出一个新值。第一次为“bedrock”,第三次为“lava”。

需要注意的是控制变量不是这些列表元素中的一个拷贝,而是这些元素本身!也就是说,如果在循环中修改这个变量,那原始列表中的元素也会被修改(当然,对于列表的修改似乎没有什么必要,但是对于数组就不一样了),这条性质如果不清楚,可能对其结果感到吃惊。 

  1. @rocks=qw{bedrockslatelava};  
  2. Perl foreach$rock(@rocks){  
  3. $rock="\t$rock";#@rocks的每一个元素前都加入一个tab  
  4. $rock.="\n";#每一个元素后都加入换行符  
  5. }  
  6. print"Therocksare:\n",@rocks;  
  7.  

 那么当循环结束是$rock的值为多少呢?其值通循环开始之前相同!Perl foreach循环中控制变量的值会被Perl自动保存和恢复,当循环进行时,是没有办法改变其值得,循环结束时,变量的值会回到循环开始前,如果没有值则为undef。这意味着如果有一个变量和控制变量有相同的名字时,不用担心会混淆他们;也就是说,我们可以用已有的变量做循环变量,而不用担心它的值在循环中改变了。

Perl中最常见的默认变量

如果在Perl foreach循环中省略了控制变量,那Perl会使用其默认的变量:$_。除了其不寻常的名字外,这和普通的变量时一样的,如下面的代码所示:

  1. Perl foreach(1..10){  
  2. print“Icancount$_\n”;  
  3. }  
  4.  

 当然$_不仅仅是能用在Perl foreach中,虽然它不是Perl中唯一的默认变量,但无疑是使用最普遍的。你会看到许多例子中Perl在没有要求它使用某个变量或值得时候,会自动使用变量$_.这将节约程序员大量的时间来思考使用哪一个变量。请看下面的例子:
$_="Yabbadabbadoo\n";
print;#打印出默认变量$_

【编辑推荐】

  1. Perl foreach用法解析 
  2. 浅析Perl正则表达式在PHP的实现
  3. 深入解析Perl内部函数的使用
  4. 揭秘Perl变量中Perl纯变量用法
  5. Perl程序设计中的Perl用户函数(子程序)

 

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-15 10:22:23

Perl控制结构

2010-07-16 09:50:23

Perl控制结构

2010-07-19 11:07:13

Perl控制结构

2010-07-19 14:20:57

Perl函数

2010-07-13 14:06:26

Perl选择性控制结构

2010-07-13 09:34:24

Perl纯变量

2010-07-13 13:49:43

Perl foreac

2010-07-13 09:50:55

Perl数组

2010-07-13 14:16:56

Perl控制流

2010-07-26 15:27:50

Perl foreac

2010-07-19 14:45:07

Perl进程控制函数

2010-07-19 10:11:58

Perl流程控制语句

2021-07-28 08:32:58

Go并发Select

2009-12-16 14:40:14

Ruby控制结构

2010-07-13 12:50:47

Perl变量

2009-07-22 07:49:00

Scala控制结构

2009-07-31 18:39:31

C#中foreach引

2010-07-20 14:41:55

Perl语法

2010-07-13 09:58:51

Perl关联数组

2017-11-06 17:16:55

Linux设备驱动并发控制
点赞
收藏

51CTO技术栈公众号