python - 如何在 Perl 中有变量断言？

Question

如何检查变量在 Perl 中是否具有特定值？是否有停止脚本执行以查找其中一些变量的命令？

我想知道我是否可以使用 Pythonic 的插入实践：

    assert 0, (foo, bar)

以无调试器的方式调试脚本？

Answer 1

快速 CPAN 搜索建议Carp::Assert。

Answer 2

见鲤鱼::断言：

use Carp::Assert;

$next_sunrise_time = sunrise();

# Assert that the sun must rise in the next 24 hours.
assert(($next_sunrise_time - time) < 24*60*60) if DEBUG;

# Assert that your customer's primary credit card is active
affirm {
    my @cards = @{$customer->credit_cards};
    $cards[0]->is_active;
};

Answer 3

Smart::Comments are nice.

Answer 4

PerlMonks有一个脚本，它介绍了一种快速断言方法。

速度很重要，因为 Perl 被解释并且任何内联检查都会影响性能（例如，与简单的 C 宏不同）

---

我不确定这些东西是否可以直接使用。

• 默认安装中有Test::Harness。这是一个入门教程。最新的模块是TAP::Harness
• 按照您所说的方式，较慢的版本是Sub::Assert

---

好的！这就是我一直在寻找的——PDF 警告：Test-Tutorial.pdf。Test::Harness用于编写 Perl 模块测试。

Answer 5

$var_to_check =~ /sometest/ or die "bad variable!";

I tend to throw things like this in my code, and later use a find and replace to get rid of them (in production code).

Also, 'eval' can be used to run a section of code and capture errors and can be used to create exception handling functionality. If you are asserting that a value is not 0, perhaps you want to throw an exception and handle that case in a special way?

Answer 6

if ( $next_sunrise_time > 24*60*60 ) { warn( "assertion failed" ); } # Assert that the sun must rise in the next 24 hours.

如果您无权访问Carp::Assert所需的 Perl 5.9，则可以执行此操作。