Get variable name as string in Perl

Question

I am trying to get a text representation of a variable\'s name. For instance, this would be the function I am looking for:

$abc = \'123\';
$var_name = &         


        

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