Pada 01-Jan-2004 jam 01:26:31 AM +0000, Joko Kusumanto nulis:
> mohon bantuan neh pake skrip perl.
> saya mau buat user email massal dengan vadduser,
> syaratnya gini :
>
> file datauser.txt isinya adalah
> joko
> saman
> udin-top
> anto
>
> passwordnya sama dengan namanya
#!/usr/bin/perl
$VADDUSER_PATH = "/usr/local/bin";
open DATA, "datauser.txt"
while (<DATA>) {
system("${VADDUSER_PATH}/vadduser $_ $_");
}
close(DATA);
Kalo mau pake random password, bisa pake ini:
sub genRandPasswd {
# genRandPasswd(n): n = panjang random string
# return value: random string panjangnya n karakter
my $arg = @_[0];
my @allowerChars = (a..z,A..Z,0..9); # karakter yg diijinkan
my $passwd = "";
for (my $i = 1; $i <= $arg; ++$i) {
$passwd .= $allowedChars[rand($#allowedChars)];
}
return $passwd;
}
PS: not tested :-)
--
- halim -
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis.php
