hi,
kesalahan anda adalah:
$usrname = <STDIN>;
dari console:
> Enter the user name: abcd
hasil $usrname yang anda dapat BUKAN "abcd"
tapi "abcd\n" , inget waktu anda panggil STDIN
anda perlu menekan ENTER untuk mengambil nilai.
sehingga $run anda menghasilkan:
"/home/vpopmail/bin/vdeluser [EMAIL PROTECTED]"
jadi solusinya adalah lakukan:
chop ($usrname); #-- buang 1 kareakter di belakang
amlan
----- Original Message -----
From: "T. Albert" <[EMAIL PROTECTED]>
To: "tanya-jawab" <[EMAIL PROTECTED]>
Sent: Tuesday, December 16, 2003 11:03
Subject: [tanya-jawab] Need help on Perl programming
> 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
>
>
--
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
