Question

任何人都可以通过样本Perl代码向我解释carp子程序吗？

Answer 1

请参阅perldoc for Carp。

carp是Perl的warn函数的替代方法，它使用堆栈跟踪信息向您显示您调用发出警告的函数的位置。这可能比warn告诉您警告发生在何处的行为更有帮助。

一个例子：

这个程序：

1: sub square_root {
2:  my $arg = shift;
3:  if ($arg < 0) {
4:    warn "Can't take square root of a negative number";
5:  } else {
6:    return sqrt($arg);
7:  }
8: }
9: print square_root(-4);

告诉你：

Can't take square root of a negative number at carpdemo.pl line 4.

但是，如果我们将warn更改为carp：

1: use Carp;
2: sub square_root {
3:  my $arg = shift;
4:  if ($arg < 0) {
5:    carp "Can't take square root of a negative number";
6:  } else {
7:    return sqrt($arg);
8:  }
9: }
10: print square_root(-4);

它告诉你：

Can't take square root of a negative number at carpdemo.pl line 4
        main::square_root(-4) called at carpdemo.pl line 10

额外的信息行有助于追踪您可能错误地使用某个功能或模块的地方。

Answer 2

http://perldoc.perl.org/Carp.html

Carp :: carp在Perl中做了什么？

2 个答案: