Question

我有一个Web应用程序，它通过一个与数据库一起使用的perl文件运行。在某一点上，用户可以执行花费大量时间的动作（它将一堆行从一个表添加到另一个表）。有没有办法在sql执行时可以等待.gif或消息显示，然后在它结束后让它消失？我对perl很新，看到这可以通过Javascript和PleaseWaitButton来实现。任何帮助都会非常值得欣赏。我的冗长更新部分的代码如下，所以我想象在那里需要插入的东西：

if((@inTable[0])==0){
my $update = `perl /stockhistory.pl
my @updatearray = split(" ", $update);
my $val;
for(my $i = 0; $i < scalar @updatearray; $i+=6){
    $val = eval{ExecSQL($dbuser, $dbpasswd, "insert into PORT_ModernData (SYMBOL, TIME, OPEN, HIGH, LOW, CLOSE, VOLUME) VALUES (?,?,?,?,?,?,?)",undef, $stocksy,, $updatearray[$i], $updatearray[$i+1], $updatearray[$i+2], $updatearray[$i+3], $updatearray[$i+4], $updatearray[$i+5]);};
}
}

感谢您的帮助！

Answer 1

我理解你的问题的方式，我会建议Javascript，虽然我喜欢自己避免它。

这样，用户可以单击按钮，触发sql get，然后消息出现，而服务器完成它的工作，完成后，Javascript可以告诉用户，并提供链接，数据或其他任何内容结果是。

使用perl，这将涉及更复杂的过程，包括进一步的服务器/客户端通信。

但是，如果有人知道的话，我很乐意纠正。

请问在Perl？在长sql查询期间加载gif等

1 个答案: