perl - 在文件上传中调用上传钩子的问题

Question

我正在尝试通过拖放上传文件。对于这个 ui 端，我使用了 blueimp 文件上传插件和服务器端，我使用与简单浏览和文件上传相同的 upload.cgi。我面临的问题是我的 cgi hook 方法的主要方法没有被调用：-

$cgi = CGI->new(\&hook, "file_upload");

这里的控制不会进入钩子方法。

sub hook
{
  &logMsg("In Hook1");
  my ($name, $buffer, $bytesRead, $data) = @_;
  &logMsg("In Hook");
  &logMsg("name=$name,bytesRead=$bytesRead");
  if (defined $lastSeenName)
  {
    if (($name ne $lastSeenName) || ($bytesRead < $lastSeenTotal))
    {
      $subTotal += $lastSeenTotal;
    }
  }
  else
  {
    $uploadSize = $ENV{'CONTENT_LENGTH'};
    &logPct(0);
  }

  $lastSeenName = $name;
  $lastSeenTotal = $bytesRead;
  $fileSizeMap{$name} = $bytesRead;
  $totalBytes = $subTotal + $bytesRead;

  if ($uploadSize > 0)
  {
    my $curPct = int((100 * $totalBytes)/$uploadSize);
    $curPct = 98 if ($curPct > 98);
    &logPct($curPct);
  }
}

当我使用我的旧样式浏览和上传文件挂钩方法时被调用。任何人都可以让我知道我缺少什么以及为什么挂钩方法没有被调用。

谢谢，马尼什