?? addusers.pl
字號:
#!/usr/bin/perl## this program will read users and password from a file# that is separated by ":" colons## Thanks to "J黵gen Hoffmann" <jh@byteaction.de>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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -