PERL语言入门:第三章:列表与数组:foreach, $_, each用法

原创 2015年05月24日 05:12:27
#!/usr/bin/perl -w
#foreach输出数组或列表
#$_为 PERL的默认变量, 当foreach不设置参数时, 默认保存到$_中
#eg.

@array = qw/path user login passwd test/;
print "数组\@arry值为:@array\n";
print qq/用foreach输出数组:\n/;

#注意这里的数组要用括号括住才行
foreach $test (@array){
	print "$test\t";
}
print "\n";
#注意, 些时再输出$test会得到undef, 因为当退出foreach时, $test回归原来状态
print "\n";
print "\$test = $test\n";
print "\n";
foreach $test (1..9){
	print "$test\t";
}
print "\n";
#现在省略$test变量再输出试下
foreach (@array){
	print "$_\t";
}
print "\n";
#现在省略$test变量再输出试下
foreach (a..z,A..Z){
	print "$_\t";
}
print "\n";

#each能返回数组或列表的索引与值
@array=qw/NAME ROOT HOST LOCALHOST IP 192.168.1.3/;
my($a, $b);
while (($a, $b) = each @array){
	print "$a\t$b\n";
	#注意这里的括号
}
#注意, 用my定义变量时, 要加括号括起来, 而my定义的变量, 只在一个块里有效,
#像上面一样, 当while块结束时, my定义的两个变量值会重新变成undef
print q/$a = /;
print "$a\n";
print q/$b = /;
print "$b\n";

Perl中foreach循环变量

看下面代码: #!/usr/bin/perl -w my $x = 1; for $x (5 ... 8){ print "In the for loop, \$x=[$x]\n"; ...
  • zebraol
  • zebraol
  • 2012年06月10日 02:55
  • 4297

perl foreach 循环

@var=  (glob "*.pl") ; foreach $_ (@var){ print "$_\n"; }
  • zhaoyangjian724
  • zhaoyangjian724
  • 2014年10月09日 17:09
  • 855

Perl语言中用while遍历数组时需要注意的问题

我们都知道Perl中一般可以用foreach这种写法遍历数组中元素,但我们偶尔也可能需要用到while这种遍历的方法。我在使用while时发现自己犯了一个很让人无语的错误,估计其他朋友也可能遇到,所以...
  • qysh123
  • qysh123
  • 2016年11月20日 20:07
  • 1065

Perl学习(十五)——数组操作 foreach each print

Perl学习(十五)——数组操作 foreach each print 下面是一个数组还有一些概念的例子: #!/usr/bin/perl -w print "123\n"; @array = ...
  • wild46cat
  • wild46cat
  • 2016年11月07日 11:51
  • 731

Perl——数组、foreach

数组
  • abelabel
  • abelabel
  • 2014年11月14日 18:04
  • 4734

perl的foreach赋值是引用

这个程序将会把@a数组中所有的元素先逐个引用给$counter,然后把$counter地值打印出来。注意,我这里说得是引用,不是赋值,perl里面的“=”实际上是在进行引用,而不是赋值,这是需要同c严...
  • jiangredsheep
  • jiangredsheep
  • 2005年11月22日 14:51
  • 3188

PERL数组的遍历

在双引号内可以使用@直接输出数组 @rocks=qw(flinstone slate rubblke); print "quarrz @rocks limtstone\n"; #print "fre...
  • dasgk
  • dasgk
  • 2013年10月10日 21:09
  • 3766

perl 遍历数组

#----------------------------- # iterate over elements of array in $ARRAYREF foreach $item (@$ARRAYR...
  • konglongaa
  • konglongaa
  • 2016年05月12日 10:58
  • 1030

Perl中foreach用法

perl中的foreach结构  首先语法 foreach $rock(qw /bedrock slate lava/){        rock="\t rock";        $...
  • hghckyfdkuyflk
  • hghckyfdkuyflk
  • 2017年02月22日 09:01
  • 194

PERL语言入门:第三章:列表与数组:sort, reverse用法

#!/usr/bin/perl -w #reverse 反序一个数组或列表 #sort 排序数组 #注意,这两个函数并不会修改原数组, 要得到调整后的数,请另保存 @test = qw/user r...
  • hope_smile
  • hope_smile
  • 2015年05月25日 02:59
  • 2332
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PERL语言入门:第三章:列表与数组:foreach, $_, each用法
举报原因:
原因补充:

(最多只允许输入30个字)