Linuxer;
Saya baru install mysql dan coba membuat simple sript perl pake mysql.
tapi waktu saya compile ada msg error :
Global symbol "$dsn" requires explicit package name at database.pl line 12.
database.pl had compilation errors.
source nya :
#!/usr/bin/perl
use DBI;
use strict;
my($dns) = "DBI:mysql:pegawai:localhost";
my($user_name) = "domu";
my($password) = "kayujati";
my($dbh,$sth);
my(@ary); #array for row returned by query
$dbh = DBI->connect ($dsn, $user_name, $password, { RaiseError =>1}) <-------line 12
$sth = $dbh->prepare ("SELECT Nama, Usia, Alamat, Email FROM pegawai");
$sth->execute ();
while(@ary = $sth->fetchrow_array () )
{
print join ("\t",@ary), "\n";
}
$sth->finish ();
$dbh->disconnect();
exit(0);
mohon masukan dari rekan milis
thanks sebelumnya
Prt
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
