用perl语言怎么写？

zhg2008

在创建用户时，同时为它创建邮箱，并写入另一个文件。
该如何追究代码？

也就是说，将下面的代码转用perl实现。
# To add user to file mailbox
# for example:   xiujuan@tree-inc.com tree-inc.com/xiujuan/Maildir/
echo -e $account  $domain/$user/Maildir/ >> /etc/postfix/mailbox
postmap /etc/postfix/mailbox #

============================================
# create_user(&details)
# Creates a new user with the given details

sub create_user
{# add to 'passwd_file'
        $lref = &read_file_lines($config{'passwd_file'});   
        $_[0]->{'line'} = &nis_index($lref);
        if (defined(@list_users_cache)) {
                map { $_->{'line'}++ if ($_->{'line'} >= $_[0]->{'line'}) }
                    @list_users_cache;
                }
        splice(@$lref, $_[0]->{'line'}, 0,
               "$_[0]->{'user'}:".
               ($pft == 2 || $pft == 5 ? "x" : $pft == 4 ? "!" :
                        $_[0]->{'pass'}).
               "$_[0]->{'uid'} $_[0]->{'gid'} $_[0]->{'home'}");
}

[ 本帖最后由 zhg2008 于 2008-2-23 14:44 编辑 ]

zhg2008

或者能引用addmailuser命令也可以，该如何实现呢？

hitsubunnu

原帖由 zhg2008 于 2008-2-23 14:41 发表
在创建用户时，同时为它创建邮箱，并写入另一个文件。
该如何追究代码？

也就是说，将下面的代码转用perl实现。
# To add user to file mailbox
# for example:   xiujuan@tree-inc.com tree-inc.com/xiu ...

能把要实现的具体功能描述一下吗  

看半天代码 多麻烦啊  

你悬赏10分   有人要吗  这里好像不流行这个

[ 本帖最后由 hitsubunnu 于 2008-2-23 16:15 编辑 ]

zhg2008

谢谢支持。

实现功能：在创建新用户时，同时为它创建邮箱。
用户的信息与其邮箱信息在两个文件中（不能在同一个文件中），这两个文件的存储信息的格式不同。

给出的代码是用来创建新用户的。
现在不知道怎么写创建邮箱的代码。
请各位大侠帮忙。

apile

你连试都没试..就跑来要代码...这样不好吧...

evil_knight

哥们钻牛角尖呢吧，能用shell实现简单的话不一定非用perl，一个系统管理员，shell和perl都会那个方便用那个，分情况的！

nsnake

找个邮件服务器的代码 ，翻一下就有了

zhg2008

我一直在修改，但就是没有成功，不知道是哪里出现了问题。

其实是借用webmin的本地用户和组那个模块，实现postfix用户的管理。
就这个一点还没有搞定。

希望有这方面经历的大侠们给点建议。

谢谢支持

zhg2008

没有办法，webmin中用户和组的模块就是使用perl和php写的，借用这个模块只好把shell装换成perl了。

zhg2008

哥们给个例子啊！
我实在找不到好的办法了。


谢谢支持