forum.lissyara.su

Код: Выделить всё

#!/usr/bin/perl

use strict;
use DBI;
use CGI;

print "Content-type: text/html\n\n";
print "";

my $cgi = new CGI;

my $description = $cgi->param('desc');
my $id = $cgi->param('payment_id');

my $drh = DBI->install_driver('mysql');
my $dbh = $drh->connect('test','123') or die "Could not connect to database";
my $query = "update payment_log set description='$description' where payment_log_id='$id'";
my $sth = $dbh->prepare($query);

$sth->execute();
print "success!";
$sth->finish();
$dbh->disconnect();

Код: Выделить всё

Can't use an undefined value as a HASH reference at /usr/local/lib/perl5/site_perl/5.8.8/mach/DBD/mysql.pm line 115.

Код: Выделить всё

#!/usr/bin/perl

use strict;
use DBI;
use DBD::mysql;
use CGI;

print "Content-type: text/html\n\n";
print "";

my $cgi = new CGI;

my $description = $cgi->param('desc');
my $id = $cgi->param('payment_id');

my $cgi = new CGI;

my $description = $cgi->param('desc');
my $id = $cgi->param('payment_id');

my $mdsn = 'DBI:mysql';
my $mdsn = 'DBI:mysql:test:127.0.0.1';
my $db_user_name = '';
my $db_password = '';
my $dbh = DBI->connect($mdsn, $db_user_name, $db_password);
if (!$dbh) {print "MySQL connection error!\n";exit;}
my $query = "update payment_log set description='$description' where payment_log_id='$id'";
my $sth = $dbh->prepare($query);

$sth->execute();
print "success!<br>";
$sth->finish();
$dbh->disconnect();