《Intermediate Perl》中一段CODE求教！【解决】

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

1^# windows.li 发表于 2008-06-11 00:45

《Intermediate Perl》中一段CODE求教！【解决】

谁能帮讲讲这段CODE？先谢过~------该CODE来自Intermediate Perl

my @input_numbers = (1, 2, 4, 8, 16, 32, 64);

my @odd_digit_sum = grep digit_sum_is_odd($_), @input_numbers;

sub digit_sum_is_odd {

      my $input = shift;

      my @digits = split //, $input;  # Assume no nondigit characters

      my $sum;

      $sum += $_ for @digits;

      return $sum % 2;
}
print join "\n",@odd_digit_sum;

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

2^# windows.li 发表于 2008-06-11 09:49

QUOTE:

my @input_numbers = (1, 2, 4, 8, 16, 32, 64);

my @odd_digit_sum = grep digit_sum_is_odd($_), @input_numbers;

我是这样理解的：判断digit_sum_is_odd($_), 若它为真，则返回$_组成的列表。
那么：默认依次判断digit_sum_is_odd(1), digit_sum_is_odd(2), digit_sum_is_odd(4)......
则：SUB中，my $input = shift;即依次处理shift 1, shift 2, shift 4......
------------貌似又不对，怪怪的.......请大家指教

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

3^# windows.li 发表于 2008-06-11 10:18

不要打我，我明白了~~
split没有看清楚，现在明白了

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cobrawgl 发表于 2008-06-11 10:36

明白了就好

waikontheroad

UID: 44352
帖子: 112
积分: 257
在线时间: 17 小时

5^# waikontheroad 发表于 2008-06-12 13:22

研究研究，初来乍到，包涵一下