[PerlChina] hashref return stuff

[Qiang (James) Li]

虽然 $error 是 hash reference, 但  if（$error) {}  用起来还是没错的。
按 fayland 的思路 (我猜测)

sub validate {
   # 检查
   if ( 找到错误 )
      # 设定 $error{}
  } else {
     return 0;  # 这样写清楚些，一眼看到没错误就返回 0
  }
}

On 5/23/06, cnhacktnt <cnhacktnt at gmail.com> wrote:
>
>
> hi,fayland~
>     改成:
> #!/usr/bin/perl
>
>
> my $error = &validate();
>
> if (%$error) {
>     print 'error';
> } else {
>     print 'ok';
> }
>
>
> sub validate {
>     my $error= { };
>     return $error;
> }
> 如何?
> 呵呵,昨天列表里比较热闹啊呵呵,可惜昨天我忙了一通宵PB课程设计,到今早4,5点才睡觉.
> 验证码那个我很早以前也去 perl
> 的新闻组问过,没人给出解决方法呵呵,不过后来知道了有些简单的验证码,通过分析其源码,是有规律可寻的,不过加上变形,干扰色之后就复杂了...应该没有一个统一的解决方法吧?
>
>  ________________________________
>
> cnhacktnt
> 2006-05-23
>  ________________________________
>
> 发件人： fayland
> 发送时间： 2006-05-23 13:52:33
> 收件人： China-pm at pm.org
> 抄送：
> 主题： [PerlChina] hashref return stuff
>
>
>
> #!/usr/bin/perl
>
> my  $error  =  &validate();
>
> if  ($error)  {
>        print  'error';
> }  else  {
>        print  'ok';
> }
>
> sub  validate  {
>        my  $error  =  {  };
>        return  $error;
> }
>
> 会输出  error.  怎么写比较好？
>
> --
> Fayland  Lam  //  http://www.fayland.org/