Hello Linuxer,
saya lagi nyoba2 belajar perl nih buat keperluan scripting, and mentok
di hal yang 'sepele'. tujuan dari script ini untuk menghapus email
ratusan account. jadi saya hanya memasukan username saja, lalu script
menggabungkan antara username dengan domain yang sudah di tentukan.
#!/usr/bin/perl
$counter = 0;
while ($counter == 0) {
print("Enter the user name: "); $usrname = <stdin>;
if ($usrname = 0) { exit; };
$domain = "abc.com";
$run = "/home/vpopmail/bin/vdeluser [EMAIL PROTECTED]";
print("Executing: $run");
system($run);
}
saya menjalankan script ini di Perl v5.8.0 built for
i386-linux-thread-multi yang merupakan bawaan dari RedHat 9.
pas di jalanin ada error:
[EMAIL PROTECTED] ~]# ./deluserbulk.pl
Enter the user name: abcd
Executing: /home/vpopmail/bin/vdeluser abcd
@abc.comError: User does not exist
sh: line 2: @abc.com: command not found
sepertinya script ini 'rusak' krn input untuk vdeluser nya tidak
nyambung menjadi 'vdeluser [EMAIL PROTECTED]' tetapi menjadi 'vdeluser
abcd'.
mohon pencerahannya.
--
Best regards,
Tjhan Albert
"The future belongs to those who believes in the beauty of their dreams"
-Eleanor Rosevelt-
--
Unsubscribe: kirim email kosong ke [EMAIL PROTECTED]
Arsip dan info di http://linux.or.id/milis.php
FAQ milis http://linux.or.id/faq.php
