小编Arm*_*ida的帖子

我正在尝试使用jQuery读取和写入文本文件.我已经编写了读取文件的函数; 但我不能做的是写入文件.我有2个文件,read.txt并且write.txt与代码位于同一文件夹中.

两个jQuery函数(下面是周围的服务器端Perl代码)是:

<!-- language: perl -->

    my $script = qq{

    \$(document).ready(function() {
     \$("#readFile").click(function() {
        \$.get('read.txt', function(data) {
          \$("#container").val(data);
        }, 'text');
     });
    });


   \$.ajax({
    url: './test.pl',
    data: {
        'myString' : "#cont"
    },
    success: function(data, textStatus, jqXHR) {
        alert('string saved to file');
    }
});

    };

    my $q = new CGI;
    print $q->header;
    print $q->start_html(
        -title => "Read a File",
        -style  => {-src => 'css/ui-lightness/jquery-ui-1.10.3.custom.css" rel="stylesheet'},
        -script => [
             {-src => 'js/jquery-1.9.1.js'},
             {-src => 'js/jquery-ui-1.10.3.custom.js'},
        ],
        );
    print …

您好我想从数据库中删除数据后在另一个位置重定向.但它显示以下错误:状态:302找到位置:

my $q= new CGI;
print $q->header ('Text/html');

print $q-> start_html(
   -title   => "",

);
my $db = "peroples";
my $user = "root"; 
my $pass = "";
my $host="127.0.0.1";
my $dbh = DBI->connect("DBI:mysql:$db:$host", $user, $pass);
my $action_delete = $q->param('delete');
my $action_update = $q->param('update');


if($action_delete + 0 > 0) {
        my $row_id = $action_delete + 0;
        my $sqlQuery  = $dbh->prepare("DELETE FROM peoples WHERE ID = $row_id");
        $sqlQuery->execute;    
 print $q->redirect(-uri => 'http://localhost/cgi-bin/peoples.pl',);