当Javascript调用Perl脚本时捕获操作系统异常

Question

我有一个Java脚本（比如说）a.js调用Perl脚本b.pl by：

JavaScript的：xmlhttpPost（＆＃34; HTTP：//：/cgi-bin/b.pl"）;

xmlhttpPost类似于：

function xmlhttpPost(strURL)
{
    var xmlHttpReq=createXMLHttpRequest();
    xmlHttpReq.open('POST', noCache(strURL), true);

其中createXMLHttpRequest创建ActiveXObject

b.pl调用另一个perl模块，c.pm。在c.pm中，有一段代码可以捕获操作系统 例外：

eval {
    $ftp->put($filenamepath); };
if ($@) {
    return "FTP time-out"; }

$ ftp利用Net :: FTP。

如果我从命令行运行b.pl并且在使用ftp放置文件时存在超时异常，则正确捕获了该删除。但是，如果通过a.js运行b.pl，则不会捕获超时异常。

请指教。谢谢！

Answer 1

我会考虑调查CGI::Carp。在该文档中可能会有几种不同的方法。