diff options
| -rw-r--r-- | challenge-031/yet-ebreo/perl5/ch-2.pl | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/challenge-031/yet-ebreo/perl5/ch-2.pl b/challenge-031/yet-ebreo/perl5/ch-2.pl new file mode 100644 index 0000000000..92895a9f46 --- /dev/null +++ b/challenge-031/yet-ebreo/perl5/ch-2.pl @@ -0,0 +1,34 @@ +#!/usr/bin/perl +# Create a script to demonstrate creating dynamic variable name, +# assign a value to the variable and finally print the variable. +# The variable name would be passed as command line argument. + +use feature 'say'; + +die "Usage:\n\tperl ch-2.pl <variable name>\n\n" if @ARGV != 1; +die "Error: Only alphanumeric characters and underscore are allowed\n\n" if $ARGV[0]=~/\W+/; + +# Not exactly what the task is asking for +# but it still demonstrates that a variable can be +# dynamically created + +# The basic idea here is that if the variable can be referenced +# then the variable exists + +# I used eval to basically do +# my $varname = \$<some_variable_name>; of course with out <> +# This would create a reference to a scalar value +my $varname = eval("\\\$" . $ARGV[0]); + +# Changes to the reference... +$$varname = 0|100*rand; + +# Should update the value of the variable being referred to +# the code below will print the random generated value assigned +# to the reference *IF* the user inputs "dynamic_var" as +# the variable name, otherwise the variable will be empty + +say $dynamic_var; + +#NOTE: because of the nature of the task, +# use strict was removed. |