为什么我应该在Perl中使用Carp而不是警告？

发布时间：2020-12-15 21:23:45 所属栏目：大数据来源：网络整理

导读：人们继续给我鲤鱼的例子，而不是警告。为什么？什么使鲤鱼比警告更好？解决方法 carp给你更多的信息，消息来自哪里(上下文) #!/usr/bin/perluse Carp;foo();bar();baz();sub foo { warn "foo";}sub bar { carp "bar";}sub baz { foo(); bar(); } 产生 foo a

人们继续给我鲤鱼的例子，而不是警告。为什么？什么使鲤鱼比警告更好？

解决方法

carp给你更多的信息，消息来自哪里(上下文)

#!/usr/bin/perl

use Carp;

foo();
bar();
baz();

sub foo {
  warn "foo";
}

sub bar {
  carp "bar";
}

sub baz {
  foo();
  bar(); 
}

产生

foo at ./foo.pl line 9.
bar at ./foo.pl line 13
        main::bar() called at ./foo.pl line 6
foo at ./foo.pl line 10.
bar at ./foo.pl line 14
        main::bar() called at ./foo.pl line 19
        main::baz() called at ./foo.pl line 7

有点傻的这个小程序，但是当你想知道谁调用的方法是鲤鱼的时候派上用场。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!