Hi Team
I need to generate and declare the random variable based on the given count. I have tried like below but it throws error like below
"Can't modify concatenation (.) or string in scalar assignment at test
+pl.pl line 16, near "$n;"
Execution of testpl.pl aborted due to compilation errors."
And the code is
#!/usr/bin/perl
use strict;
my $txt='some';
my $arg_cnt=3;
my ($rv1,$rv2,$rv3)=&get_val($arg_cnt);
print "rv1:$rv1\n";
print "rv2:$rv2\n";
print "rv3:$rv3\n";
sub get_val {
my $cnt = shift;
# generate random and declare variable depends on $cnt value
my $random_var;
my ($var,$var1,$var2,$var3,$var4,$var5,$var6,$var7,$var8,$var9,$va
+r10,$var11,$var12,$var13);
for my $n (1..$cnt){
$var.$n = $n;
$random_var .= '$var'."$_".',';
}
$random_var =~ s/\,$//;
print "get_var: $random_var\n";
return($random_var);
}
I would appreciate some help
Please help me in fixing this. Awaiting for your valuable reply.
Thanks.