perl + set value in parameter

With the following example script I try to print the parameter[1] content. My question is how to print also FLORIDA word (in place $VAL) so I wil开发者_运维技巧l get FLORIDA on print output

#!/usr/bin/perl

my @parameter = ();
my $VAL=FLORIDA;

$parameter[1]='45487539
               $VAL
               5847366
               83564566';

print $parameter[1];

Output:

45487539
               $VAL
               5847366
               83564566

$parameter[1]="45487539
               $VAL
               5847366
               83564566";

Try that.

The answer is to replace the single quotes "'" with double quotes """. Now it will work.

If you need to dynamically replace variables from user supplied data, use the following syntax:

$parameters[1] =~ s/\$(\w+)\b/eval "return \$$1;"/ge;
print $parameters[1];