Как подставить непростые переменные ссылки в строку

Question

Рассмотрим следующий код:

my $msg='My name is $person->{name}.';
my $person={ name=>'Peter', gender=>'Male' };

Итак, я хочу напечатать $ msg. Я видел примеры, которые разрешают простые замены переменных, такие как «$ name», но я не видел, как решить мою проблему. Я попытался:

print eval $msg;

, но это не сработало (ничего не печатал). Как я могу напечатать My name is Peter.?

Answer 1

Вы изобретаете систему шаблонов. К счастью, он уже существует: Шаблон .

#!/usr/bin/perl
use warnings;
use strict;

use Template;

my $msg='My name is [% person.name %].';
my $person={ name=>'Peter', gender=>'Male' };

my $template = 'Template'->new;
$template->process( \$msg, { person => $person }, \ my $output );
print $output;

Answer 2

Когда eval «не работает», он устанавливает специальную переменную $@ с ошибкой, с которой столкнулся Perl при вычислении выражения. В вашем случае это сообщение

syntax error at (eval 1) line 2, at EOF

, поскольку текстовый текст

My name is $person->{name}.

не может быть проанализирован как код Perl. Но легко исправить это заключить этот текст в кавычки.

my $msg='"My name is $person->{name}."';
my $person={ name=>'Peter', gender=>'Male' };

print eval $msg;

Вывод:

My name is Peter.

Другими способами исправить эту программу является отправка цитируемого текста на eval:

my $msg='My name is $person->{name}.';
print eval "\"$msg\"";
print eval qq/"$msg"/;

Answer 3

Работает, когда вы сначала объявляете хеш. Обязательно используйте двойные кавычки:

my $person={ name=>'Peter', gender=>'Male' };
my $msg="My name is $person->{name}.";

print $msg;

Answer 4

Всегда стоит проверить FAQ Perl для ответов на подобные вопросы.

Как я могу расширить переменные в текстовых строках?