saya punya masalah nih
saya pakai bahasa perl sintaknya sebagai berikut?
#!/usr/bin/perl
open (data,"dat1.cgi")||die "tidak bisa di buka:$!\n";
$counter=0;
while (!eof(data)){
$counter++;
($nama,$pasword,$alm,$stat)=split(/\n/,$_);
$user [$counter]=$nama;
$paswd [$counter]=$pasword;
$al [$counter]=$alm;
$status [$counter]=$stat;
}
print "User id:",$user[1],"\n";
print "Pasword:",$paswd[1],"\n";
print "Alamat :",$al[1],"\n";
print "Status :",$status[1],"\n";
setelah saya run kok looping terus gimana ya?? mungkin ada teman yang membantu??
isi dari dat1.cgi sebagai berikut
hadi
telkom
jakarta
admin
--------------------------------------------------
Surat elektronik ini dikirim dari http://www.plasa.com
Bergabunglah bersama puluhan ribu alumni / siswa dari puluhan ribu sekolah Indonesia
di http://ksi.plasa.com
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
