addusers.pl

来自「相当优秀的 UNIX 进程管理工具」· PL 代码 · 共 18 行

#!/usr/bin/perl
#
# this program will read users and password  from a file
# that is separated by ":" colons
#
# Thanks to "J黵gen Hoffmann" <[e-mail]>

use IO::File;

my $fh=new IO::File;
$fh->open("user.dat");
while(<$fh>) {
        chop;
        my ($username,$password) = split/:/; 
# I am assuming they are seperated by colons
        system("~vpopmail/bin/vadduser","$username\@domain.tld","$password");
$fh->close;