Perl 应用程序

Question

我想知道您是否可以帮助我完成此申请，因为我发现很难完成它。 基本上我正在尝试使用 Linux Debian/Html/Perl/Mysql 数据库动态添加/删除项目。我真的很感激任何帮助，即使只是关于如何进行的提示。到目前为止，这是我的代码..

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

print "Content-Type:text/html;\n\n";
print "<h1>Doctors Database</h1><br><br>";

my $dsn = "DBI:mysql:database=doctors;host=localhost;port=3306";
my $dbh = DBI->connect($dsn, "sal", "las"); 

my $sth = $dbh->prepare('SELECT * FROM persone');
$sth->execute;

print $sth->rows . " Doctors\n<br><br> ";

print "<form>";
print "Name:<br>";
print "<input type=text name=name><br>";
print "Age:<br>";
print "<input type=text name=age><br>";
print "<input type=submit value=add><br>";
print "<input type=submit value=remove><br>";
print "</form>";

print "<table cols=2 border=1>\n";

print "<tr>\n";
print "<th>Name</th>\n";
print "<th>Age</th>\n";
print "</tr>\n";

while (my $Data = $sth->fetchrow_hashref) {
  print "<tr>\n";
  print "<td>", $Data->{'name'}, "</td>\n";
  print "<td>", $Data->{'age'}, "</td>\n";
  print "</tr>\n";
}

print "</table>\n";

$sth->finish;

Answer 1

试试这个：

sub mysql_connect($$$$) {
    my ($database, $host, $user, $password) = (shift, shift, shift, shift);
    my $handler = DBI->connect("DBI:mysql:database=$database;host=$host", $user, $password, {RaiseError=>0,PrintError=>1});
    return $handler;
};

sub mysql_do($$) {
    my ($f_handler, $f_sql) = (shift, shift);
    my $f_statement = $f_handler->do($f_sql);
    my $error = $DBI::errstr;
    if(defined $error){
        return -1;
    };
    return ($f_statement);
};

sub mysql_prepare($$){
    my ($f_handler, $f_sql) = (shift, shift);
    my $f_statement = $f_handler->prepare($f_sql);
    my $f_response = $f_statement->execute();
    return ($f_statement, $f_response);
}

my $temp = "SELECT * FROM \`$database\`.\`$database_table\`";
print $temp."\n" if ($debug_mode == 1);
my ($statement, $response) = mysql_prepare($database_handler , $temp);

while (my $mysql_table_row = $statement->fetchrow_hashref()) {
    #do something with row as hash
}