如何在Perl中只打印调用函数

ghhkc1vu  于 2022-11-15  发布在  Perl
关注(0)|答案(1)|浏览(146)

我正在尝试打印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

如何仅打印fun1fun2,而不是分别打印main::fun1main::fun2
如果有一种方法来打印他们根据我上面说的好。或者我将不得不修剪的结果:(

ecbunoof

ecbunoof1#

您可以使用下列项目:

my $name = $full_name =~ s/^.*:://sr;

相关问题