请教一个bless对象的问题

killer5757

UID: 43634
帖子: 73
积分: 167
在线时间: 7 小时

1^# killer5757 发表于 2008-01-23 09:54

请教一个bless对象的问题

sub new {
  my ($class, $genes) = @_;

  my $self;
  if (ref $class) {
$self = bless {} => ref $class;
$self->{$_} = $class->{$_} for keys %$class;
$self->{GENES}  = $genes;
$self->{CALCED} = 0;

  } else {       # new mode. Genome is given
goto &newSpecific;
  }

  return $self;
}

还有一个
sub newRandom {
  my ($class, $length) = @_;

  my $self = bless {
      GENES => [],
      SCORE => 0,
      FITFUNC => sub {},
      CALCED  => 0,
   } => $class;

  push @{$self->{GENES}} => rand > 0.5 ? 1 : 0
for 1 .. $length;

  return $self;
}

$self = bless 中的=> 号不理解，
push @{$self->{GENES}} => rand > 0.5 ? 1 : 0 这里面的=> 也不理解，有没有高手解答一下了先谢谢了！

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

2^# apile 发表于 2008-01-23 12:58

=> equal to ,
please reference to
perldoc perl

QUOTE:

   The "=>" operator is a synonym for the comma, but forces any word (con-
   sisting entirely of word characters) to its left to be interpreted as a
   string (as of 5.001).  This includes words that might otherwise be con-
   sidered a constant or function call.

         use constant FOO => "something";

         my %h = ( FOO => 23 );

   is equivalent to:

         my %h = ("FOO", 23);

   It is NOT:

         my %h = ("something", 23);

   If the argument on the left is not a word, it is first interpreted as
   an expression, and then the string value of that is used.

   The "=>" operator is helpful in documenting the correspondence between
   keys and values in hashes, and other paired elements in lists.

            %hash = ( $key => $value );
            login( $username => $password );

兰花仙子

UID: 7570
帖子: 195
积分: 448
在线时间: 2 天 4 小时

3^# 兰花仙子发表于 2008-01-23 19:49

QUOTE:

$self = bless 中的=> 号不理解，
push @{$self->{GENES}} => rand > 0.5 ? 1 : 0 这里面的=> 也不理解，有没有高手解答一下了先谢谢了！

1. =>在perl里就是逗号',', 第一句就等同于bless {},$class,返回一个bless的目标给$self. ref $class表示如果该类已实例化的话,那么就取其类自身.
2. rand是个内置函数吧,如果call该函数的结果大于0.5,就push 1到$self->{GENES}指向的数组里去.否则push 0到这个数组里去.
3. 这个代码写的有点晦涩.另外,现代好的programming style建议不用goto语句.

btw: 好久没用中文,','是句号还是逗号刚才想了半天,

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

4^# gsging 发表于 2008-01-23 21:02

楼上重现江湖.

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

5^# Nosferatu 发表于 2008-01-23 21:36

仙子下凡了！！！！！！
回娘家感觉可好？

兰花仙子

UID: 7570
帖子: 195
积分: 448
在线时间: 2 天 4 小时

6^# 兰花仙子发表于 2008-01-23 21:39

QUOTE:

原帖由 Nosferatu 于 2008-1-23 21:36 发表
仙子下凡了！！！！！！
回娘家感觉可好？

没回呢..我这边登录CU超级慢,所以平时上得很少.
快过年了,有点想家..借此帖给本版版友和flw拜个早年.
祝2008大家和Perl一同进步!

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

7^# Nosferatu 发表于 2008-01-23 22:04

也祝仙子新年快乐，在国外也不容易，加油哦

兰花仙子

UID: 7570
帖子: 195
积分: 448
在线时间: 2 天 4 小时

8^# 兰花仙子发表于 2008-01-23 23:59

QUOTE:

原帖由 Nosferatu 于 2008-1-23 22:04 发表
也祝仙子新年快乐，在国外也不容易，加油哦

en,谢谢!

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

9^# mouse.rice 发表于 2008-01-24 00:04

跟在后面顶~异国他乡,不容易.快过春节了,也不打算回乡?呵呵

兰花仙子

UID: 7570
帖子: 195
积分: 448
在线时间: 2 天 4 小时

10^# 兰花仙子发表于 2008-01-24 00:08

QUOTE:

原帖由 mouse.rice 于 2008-1-24 00:04 发表
跟在后面顶~异国他乡,不容易.快过春节了,也不打算回乡?呵呵

不着急,刚来不久呵呵.