Пожалуйста, дождитесь кнопки на Perl? загрузка GIF и т. д. во время длинного запроса SQL

Question

У меня есть веб-приложение, которое запускается через один файл perl, который работает с базой данных. В какой-то момент пользователь может выполнить действие, которое занимает много времени (оно добавляет несколько строк из одной таблицы в другую). Можно ли как-нибудь подождать.gif или показать сообщение во время выполнения sql, а затем заставить его исчезнуть после его завершения? Я довольно новичок в 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 это будет связано с более сложной процедурой, включая дальнейшее взаимодействие между сервером и клиентом.

Я бы с радостью поправился, если бы кто-нибудь знал лучше.