perl - 重定向前 Mojo::IOLoop 计时器的问题

问题描述

我的 Mojolicious 控制器中有一个子程序，当通过 http 帖子上传 csv 文件时调用它。上传文件后，会显示一条消息，上面写着“您将在 x 秒内被重定向”。所以我想实现 Mojo::IOLoop::Delay 并作为回调我使用重定向语句。但是我得到了 Morbo 的以下错误：

Mojo::Reactor::EV: Timer failed: Transaction already destroyed at /usr/local/share/perl/5.22.1/Mojolicious/Plugin/DefaultHelpers.pm line 168.

控制器代码：

sub upload {
    my $self = shift;
      # Check file size
      return $self->render(text => 'File is too big.', status => 200)
      if $self->req->is_limit_exceeded;

  # Process uploaded file
  return $self->redirect_to('/') unless my $newCsv = $self->param('fileToUpload');
  my $size = $newCsv->size;
  my $name = $newCsv->filename;
  my $delay = 2;
  $self->render(text => "Thanks for uploading $size byte file $name.<br>
    You will be redirected in $delay seconds");
  Mojo::IOLoop->timer($delay => sub {
    $self->redirect_to('/');
    });
}

相关路线：

$r->get('/')->to(controller => 'main', action => 'index');
$r->post('/uploadCsv')->to(controller => 'main', action => 'upload')->name('uploadCsv');

先感谢您

标签： perlmojoliciousmorbo

redirect_to实际上是一个render呈现 HTTP 302 响应的重定向。您不能渲染两次，因此即使您在redirect_to调用之前保留事务，它也已经渲染了页面。因此，您尝试做的事情有两个实际选择；使用 javascript 渲染一个页面，该页面将在超时后执行重定向，或者渲染一个带有元刷新标签的 HTML 页面，这将导致页面在延迟后重定向。这个MDN 页面讨论了这两种方法。

perl - 重定向前 Mojo::IOLoop 计时器的问题

问题描述

解决方案

推荐阅读