请教大家了my %oldHash = %$hashRef;和if (@$arrayRef == 1) { 都啥意思啊？

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

1^# zhouhaiming 发表于 2007-09-11 19:02

请教大家了my %oldHash = %$hashRef;和if (@$arrayRef == 1) { 都啥意思啊？

sub makeNewHash($) {
my $hashRef = shift;
my %oldHash = %$hashRef; my %newHash = ();
while ( my ($key, $innerRef) = each %oldHash ) {
      my $value = @$innerRef[0];
      if ($key eq 'dob') {
         $newHash{'age'} = dob2age($value);
      } else {
         if ($key eq 'price') {
            $value = fixPrice($value, 0.20);
         }
         $newHash{$key} = $value;
      }
}
return \%newHash;
}
sub foldType ($) {
my $arrayRef = shift;
# if single element in array, return simple hash
if (@$arrayRef == 1) {
      return makeNewHash(@$arrayRef[0]);
}
# if multiple elements, return array of simple hashes
else {
      my @outArray = ();
      foreach my $hashRef (@$arrayRef) {
         push @outArray, makeNewHash($hashRef);
      }
      return \@outArray;
}
}

wdavid

UID: 22940
帖子: 72
积分: 165
在线时间: 7 小时

2^# wdavid 发表于 2007-09-11 19:55

都是关于引用的.

cobrawgl

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

3^# cobrawgl 发表于 2007-09-12 08:50

1,3 和引用有关

2 就是让 shhgs 疯了的一种用法。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2007-09-12 08:54

看精华区。或者继续死等。

moonce

UID: 34647
帖子: 6
积分: 13
在线时间: 10 分钟

5^# moonce 发表于 2007-09-12 09:01

QUOTE:

原帖由 flw 于 2007-9-12 08:54 发表
看精华区。或者继续死等。

当家的好酷！

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

6^# nkcsx 发表于 2007-09-12 09:45

perldoc perlref

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

7^# perljoker 发表于 2007-09-12 10:18

QUOTE:

原帖由 moonce 于 2007-9-12 09:01 发表

当家的好酷！

恩，你说的对，不是一般的酷，小心给你来极速冷却，“咻~~~~”

QUOTE:

3楼发表于 2007-9-12 08:50
1,3 和引用有关

2 就是让 shhgs 疯了的一种用法。

的确，让某个还是有些底子的人疯了

ps. 为何他从来没想过 = 和 == 咋就能接受呢，不都是等于。（只是ps，所以大家请无视）

哦，回正题，一个是hash的引用，一个是数组的引用，一看就明白
这里没用太复杂的机理，应该一看书就知道了

formalin14

UID: 22155
帖子: 166
积分: 381
在线时间: 1 天 13 小时

8^# formalin14 发表于 2007-09-12 10:47

%$hashRef是从hash引用析值
@$arrayref是从数组引用析值

@$arrayref == 1 是判断析值后的数组的元素个数是否是1. ==符号是标量上下文, 而数组在标量上下文返回其元素个数.