ExtMail服务器社区 » Extmail - 安装使用 » 请教个perl问题 多谢了

Aerla 发表于 2010-3-5 15:05

请教个perl问题 多谢了

if ($rc) {

            $tpl->assign(ERROR => sprintf($lang_signup{'add_fail'}, "$user\@$domain").$rc);

        } else {

            $tpl->assign(SUCCESS => sprintf($lang_signup{'add_ok'}, "$user\@$domain"));

            my $dir = $sys->{SYS_CONFIG};

            my $base = $sys->{SYS_MAILDIR_BASE};

            system("$dir/tools/maildirmake.pl $base/$path/Maildir/");

            $tpl->assign(STEP3 => 1)

                   }

最后一句话$tpl->assign(STEP3 => 1)什么意思？

wxd5981 发表于 2010-3-5 17:28

->  大致有两种用途:
1. 引用reference的数据的元素
2. 对象或模块的方法调用

查看完整版本: 请教个perl问题 多谢了