Mori Akizashi <[EMAIL PROTECTED]> wrote:
Segmentation fault adalah peristiwa "amazing" bagi sebuah aplikasi perl.
mungkin ada beberapa file yang korup dari source msql-mysql. hmm.. mungkin
kita perlu liat source kode dari programnya :)
source code nya seperti ini (sepertinya sih tidak ada yang salah) :
#!/usr/bin/perl -w
use DBI;
my $database = "coba";
my $data_source = "DBI:mysql:$database";
my $username = " ";
my $password = " ";
my $dbh = DBI->connect($data_source, $username, $password)
or die "Can't connect to $data_source: " , DBI->errstr;
my $sth = $dbh->prepare("SELECT * FROM user");
$sth->execute or die "Unable to execute query: $dbh->errstr\n";
chop @row;
@row = $sth->fetchrow_array;
$sth->finish;
my $result = $dbh->disconnect;
sub ResultQuery() {
print "Content-type: text/html\n\n";
print <<"end";
<html>
<head>
<title>Hasil</title>
</head>
<body>
<br>
end
foreach (@row) {
print "$_\n";
print "<br>";
}
print "</body>\n";
print "</html>\n";
}
kemarin saya dapat jawaban dari mas Yusron Hilmy begini :
> #!/usr/bin/perl -w
>
> use DBI;
>
> my $database = "coba";
> my $data_source = "DBI:mysql:$database
____________________________________________________________________
Get free email and a permanent address at http://www.netaddress.com/?N=1
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
