如何使用块作为“或” 子句而不是简单的骰子？

Question

我想检查 Net::FTP Perl 模块中的操作结果而不是死掉。

通常你会这样做：

$ftp->put($my_file)
  or die "Couldn't upload file";

但我想做点别的事情，而不是仅仅死在这个脚本中，所以我尝试了：

$ftp->put($my_file)
  or {
      log("Couldn't upload $my_file");
      return(-1);
  }

log("$my_file uploaded");

但 Perl 抱怨编译错误说：

syntax error at toto.pl line nnn, near "log"

这是我的代码片段中的第二个日志。

任何建议都非常感激。

干杯，

Answer 1

do 就是你的正在寻找：

$ftp->put($my_file)
  or do {
      log("Couldn't upload $my_file");
      return(-1);
  };

log("$my_file uploaded");

但是这可能是更好的风格：

unless( $ftp->put( $my_file )) { # OR if ( !$ftp->put...
      log("Couldn't upload $my_file");
      return(-1);
}

如果您只想返回错误条件，那么您可以die 并使用 < code>eval 在调用函数中。

use English qw<$EVAL_ERROR>; # Thus, $@ <-> $EVAL_ERROR

eval { 
    put_a_file( $ftp, $file_name );
    handle_file_put();
};

if ( $EVAL_ERROR ) { 
    log( $EVAL_ERROR );
    handle_file_not_put();
}

然后调用

sub put_a_file { 
    my ( $ftp, $my_file ) = @_;
    $ftp->put( $my_file ) or die "Couldn't upload $my_file!";
    log( "$my_file uploaded" );

}

Answer 2

或执行{}； 总是让我头疼。 使用“or”语法（我承认在单行中使用了很多）与“if”（我更喜欢在多行中使用）是否有充分的理由？

那么，是否有理由使用或不使用其中一种方法而不是另一种呢？

foo()
  or do {
    log($error);
    return($error);
  };
log($success);

if (!foo()) {
  log($error);
  return($error);
}
log($success);

Answer 3

使用do。

这是小代码片段：

sub test {
    my $val = shift;
    if($val != 2) {
        return undef;
    }
    return 1;
}

test(3) || do {
            print "another value was sent";
};

Answer 4

我很难理解为什么这需要包含在一个 do 中。 是否有理由认为这还不够？

my $ftp_ok = $ftp->put( $my_file )
  or log("Couldn't upload $my_file" ) and return -1;

log("$my_file uploaded") if $ftp_ok;

这假设 put 函数并不总是在成功时返回 undef。