perl - 在 Perl 中获取变量名称作为字符串

Question

我正在尝试获取变量名称的文本表示形式。例如，这将是我正在寻找的功能:

$abc = '123';
$var_name = &get_var_name($abc); #returns '$abc'

我想要这个，因为我正在尝试编写一个调试函数，该函数递归地输出传递变量的内容。我希望它事先输出变量的名称，因此如果我连续调用此调试函数 100 次，就不会混淆我在输出中查看哪个变量。

我听说过 Data::Dumper 但不是它的粉丝。如果有人能告诉我如何获取变量名称的字符串，那就太好了。

Answer 1

Data::Dumper::Simple

use warnings;
use strict;
use Data::Dumper::Simple;

my $abc = '123';
my ($var_name) = split /=/, Dumper($abc);
print $var_name, "\n";

__END__

$abc