請教如何在perl程序中实现系统用户添加和删除

lssliu

     新手，麻烦讲详细点

flw

不要只要求别人讲详细点，麻烦你也讲详细点，OK？
什么操作系统？
是不会在 perl 中添加系统用户，还是根本就不会用命令添加用户？

lssliu

抱歉，linux 下，我会直接用useradd...但是我不会在perl 程序中实现

flw

system( "useradd ..." );
就可以了。

希望你能认识到把问题描述清楚给大家（包括你、我、他）带来的便利。

reason001

楼主所言极是.
支持ChinaUinx!!!!!!!!!!

lssliu

感谢各位的教诲
================================
#!/usr/bin/perl
#test.pl
system("userdel user10";
system("useradd","user10","-p","123456";
================================
项目中可能会出现添加重复的用户，所以需要先删除用户，再添加用户，可是如果用户不存在会出错，希望指教如何判断。
谢谢。

lssliu

先删除要添加的用户。。。。。。。。。。。

flw

userdel 的返回值可以忽略。

lssliu

是不是不用判断，忽略系统的提示信息啊？
==========================
#!/usr/bin/perl
#test.pl
system("userdel user9";
==========================
==========================
[root@degitial degitial]# perl test.pl
userdel:用户 user9不存在
==========================