perl + установить значение в параметре

Question

С помощью следующего примера сценария я пытаюсь напечатать содержимое параметра [1]. Мой вопрос, как напечатать также слово FLORIDA (вместо $ VAL) поэтому я получу FLORIDA на выводе на печать

#!/usr/bin/perl

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

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

print $parameter[1];

Выход:

45487539
               $VAL
               5847366
               83564566

Answer 1

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

Попробуйте это.

Answer 2

Ответ заключается в замене одинарных кавычек "'" на двойные кавычки """. Теперь это будет работать.

Answer 3

Если вам нужно динамически заменить переменные из предоставленных пользователем данных, используйте следующий синтаксис:

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