0

我正在创建一个包含 3 个基本元素、选择框、按钮和表格的网页。从较高的层次来看,用户选择一个元素,然后单击按钮。单击该按钮时,将执行一个 PERL 脚本,该脚本将数据放入 mySQL 数据库中的表中。所有这些事情都成功了。

现在,我正在尝试使用动态表将数据库表值返回到我的 HTML 文件中。但是我找到的每个来源都有我的 CGI 文件编写 html 标签。我觉得这是不对的,因为我不明白我的 CGI 知道表 ID,即使我传递了值。另外,我知道我的 js 文件不正确,有两个单独的 AJAX 调用,但那是我在脑海中逻辑处理的家。

我不确定首先是什么,修复 CGI 或 JS 文件。

HTML 代码 (index.html):

<!DOCTYPE html>
<html>
    <head>
        <script type="text/javascript" src="http://code.jquery.com/jquery-latest.js" charset="utf-8"></script>
        <script type="text/javascript" class="jsbin" src="C:/xampp/DataTables/media/js/jquery.dataTables.js" charset="utf-8"></script>
        <script type="text/javascript" src="js/main.js" charset="utf-8"></script>
        <script type="text/javascript" src="js/RunPerlScript.js" charset="utf-8"></script>
        <script type="text/javascript" src="js/table.js" charset="utf-8"></script>
    </head>
    <body>
        <header>
            <h1></h1>
        </header>
        <form name="myForm" method="GET" action="">
            <select id="cdLDAP" >
                <option/>
            </select>
            <input type="button"  id="btn_run" name="btn_run" value="Run"></input>
        </form>
        <table id="results_table">
            <thead>
                <tr>
                    <th></th>
                </tr>
            </thead>
            <tbody>
                <tr>
                    <td></td>
                </tr>
                <tr>
                    <td></td>
                </tr>
            </tbody>
        </table>
    </body>
</html>

Perl (CGI):

 #!/usr/bin/perl -T
    use CGI;
    use DBI;
    use strict;
    use warnings;

    # read the CGI params
    my $cgi = CGI->new;
    my $inputselection = $cgi->param("cdLDAP");
    my $html_table = $cgi->param("html_table_results");
    my ($base_dn, $tblname);
    #my $password = $cgi->param("password");

    #my $inputselection = "Disabled Users";
    #LDAP Connection parameters
    if ($inputselection eq "Disabled Users") {
        $base_dn = "";
        $tblname = "disabled_user";
    } elsif ($inputselection eq "") {
        $base_dn = "";
        $tblname = "service_account";
    } elsif ($inputselection eq "") {
        $base_dn = "";
        $tblname = "";
    } else {
        die;
    }

    # connect to the database
    my ($platform,$database,$host,$port,$db_user,$pw) = ("mysql","results","localhost","3306","resultsuser","mysql123");
    my $dsn = "DBI:$platform:database=$database,host=$host,port=$port";
    my $connect = DBI->connect("DBI:mysql:database=$database;host=$host",$db_user,$pw,{RaiseError => 1});

    #query db to get results set for table output
    my $query_results = "SELECT * FROM " . $tblname;
    my $query_handle = "";
    $query_handle = $connect->prepare($query_results) or die $connect->errstr;
    $query_handle->execute() or die $query_handle->errstr;

    print header;
    # HTML for the beginning of the table
    # we are putting a border around the table for effect
    print "<table border=\"1\" width=\"800\"> \n";

    # print your table column headers
    print "<tr><td>User ID</td><td>Status</td><td>Last Password Reset</td><td>Reset Needed?</td></tr>\n";

    my (@data,$uid,$status,$pwlstset,$resetmsg);

    # retrieve the values returned from executing your SQL statement
    foreach (@data = $query_handle->fetchrow_array()) {
    $uid = $data[0];
    $status = $data[1];
    $pwlstset = $data[2];
    $resetmsg = $data[3];

    # print your table rows
    print "<tr><td>$uid</td><td>$status</td><td>$pwlstset</td><td>$resetmsg</td></tr>\n";

    }

    # close your table
    print "</table>\n";

    # exit the script
    exit;

JS/JQuery/AJAX:

$(function() {
    $('#btn_run').click(function() {
        var tblname = $('#cdLDAP').val();
        var html_table = $('#results_table').attr('id');
        $.ajax({
            type: "GET",
            url: "/perl/cgitest.pl", // URL of the Perl script that queries LDPA and inputs to mySQL
            data: "cdLDAP=" +tblname,
            // script call was *not* successful
            error: function() { 
                alert("ERROR!");
            }, // error 
            // script call was successful 
            // data contains the JSON values returned by the Perl script 
            success: function(data){
                alert("success!");
            } // success
        }); // ajax
        $.ajax({
            type: "GET",
            url: "/perl/cgitest2.pl", // URL of the Perl script that retirves data from mySQL
            data: "cdLDAP=" +tblname +",html_table_results=" +html_table,
            // script call was *not* successful
            error: function() { 
                alert("ERROR!");
            }, // error 
            // script call was successful 
            // data contains the JSON values returned by the Perl script 
            success: function(data){
                alert("success!");
            } // success
        }); // ajax
    });
});

所以这里是我需要一些帮助的地方: 1) 我的 PERL 脚本是否应该编写 html 标签?如果是,我如何写入index.html而不是新的 html 文件?2)如果表结构是由 jquery 文件创建的,一个好的教学资源将不胜感激,因为我试图被教如何钓鱼,而不是给鱼。

4

1 回答 1

4

我的 PERL 脚本是否应该编写 html 标签?

没有像 PERL 这样的东西

如果您想使用 Ajax 动态更新页面(请注意,您应该使用不显眼的 JavaScript),那么您可以采用两种基本方法:

  1. 服务器以干净的数据结构(可能是 JSON)返回数据
  2. 服务器返回一段 HTML

我通常赞成前一种方法(在这种情况下,您将在 Perl 中构造一个 hashref 数组,通过JSON 模块运行它,然后使用application/jsonContent-Type HTTP 标头输出它。

鉴于某些版本的 Internet Explorer 在尝试编辑innerHTML表格元素时存在问题,这使得第一个选项更好。

如果是,我如何写入 index.html 而不是新的 html 文件?

您根本不写入文件。您通过 STDOUT 返回数据,网络服务器将其传递回客户端。

如果表结构是由 jquery 文件创建的,那么好的教学资源将不胜感激

http://api.jquery.com/category/manipulation/

于 2012-04-20T15:13:36.573 回答