我正在尝试打印Perl中的调用函数。它的显示符合预期。
下面是代码:
#!/usr/bin/perl
use strict; use warnings;
my $a = 5;
my $b = fun1($a);
print "a:$a ** b:$b\n";
sub fun1 {
my $r = shift;
my $s = fun2($r);
return $s;
}
sub fun2 {
my $p = shift;
print "the calling function is:", (caller 1)[3], "\n";
print "and you're in:", (caller 0)[3], "\n";
my $q = $p * 5;
return $q;
}
输出量:
the calling function is:main::fun1
and you're in:main::fun2
a:5 ** b:25
如何仅打印fun1
和fun2
,而不是分别打印main::fun1
和main::fun2
。
如果有一种方法来打印他们根据我上面说的好。或者我将不得不修剪的结果:(
1条答案
按热度按时间ecbunoof1#
您可以使用下列项目: