下面两断代码有什么区别？

huanghaojie

UID: 17400
帖子: 56
积分: 128
在线时间: 4 小时

1^# huanghaojie 发表于 2009-01-10 20:07

下面两断代码有什么区别？

my @odd_numbers = grep {$_ % 2} 1..1000;
foreach (@odd_numbers){
print $_,"\n";
}

my @odd_numbers;

foreach (1..1000){
push @odd_numbers, $_ if $_%2;
print $_,"\n";
}

第一段打印出1-1000的基数
第二段也是一样，但是第二段最后一个数字是1000，为什么？

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2009-01-10 20:20

QUOTE:

原帖由 huanghaojie 于 2009-1-10 20:07 发表
第二段也是一样，但是第二段最后一个数字是1000，为什么？

什么的最后一个数字？

wertyu

UID: 5328
帖子: 122
积分: 280
在线时间: 20 小时

3^# wertyu 发表于 2009-01-10 20:20

QUOTE:

原帖由 huanghaojie 于 2009-1-10 20:07 发表
my @odd_numbers = grep {$_ % 2} 1..1000;
foreach (@odd_numbers){
print $_,"\n";
}

my @odd_numbers;

foreach (1..1000){
push @odd_numbers, $_ if $_%2;
print $_,"\n";
}

第一段打印出1- ...

第一个是打印odd_numbers中的值，也就是1..1000中的奇数值；
第二个是打印1..1000中所有的值，奇数值会被存入@odd_numbers

huanghaojie

UID: 17400
帖子: 56
积分: 128
在线时间: 4 小时

4^# huanghaojie 发表于 2009-01-10 20:27

第一个程序的输出
1
**
**
995
997
999
第二个程序输出
1
**
**
995
997
999
1000

wertyu

UID: 5328
帖子: 122
积分: 280
在线时间: 20 小时

5^# wertyu 发表于 2009-01-10 20:49

QUOTE:

原帖由 huanghaojie 于 2009-1-10 20:27 发表
第一个程序的输出
1
**
**
995
997
999
第二个程序输出
1
**
**
995
997
999
1000

你再仔细看看你的代码

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

6^# ynchnluiti 发表于 2009-01-10 22:09

QUOTE:

foreach (1..1000){
push @odd_numbers, $_ if $_%2;
print $_,"\n";
}

第二段输出的是$_ (1..1000)