challenge-031/ruben-westerberg/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env perl
use feature qw<say>;
my $name=$ARGV[0]// "var".rand;
my $value=$ARGV[1]//rand;

{
	say "Using symbolic refs";
	no strict refs;
	$$name=$value;
	say "Variable name: $name Value: ${$name}";
}
print "\n";
{
	say "Using a hash";
	my %h;
	$h{$name}=$value;
	say "Variable name: $name Value: $h{$name}";
}