интерполяция строки хэшированного формата

Question

Я работаю над cgi-скриптом perl. Он должен обрабатывать какую-то базу данных, где макеты печати и значения для печати сохраняются в хеше. Здесь приходит мой фрагмент кода:

my $va=1; 
    my $vb=2; 
    my $fa=""; 
    my $fb=""; 
    my %h=('format' => { 'a' => "This is the value of variable \$va: $va", 
          'b' => "This is the value of variable \$vb: $vb" 
         }, 
      'values' => { 'a' => "value A", 
          'b' => "value B" 
         } 
     ); 
    $fa=$h{'format'}->{'a'}; 
    $fb=$h{'format'}->{'b'}; 
    $va=$h{'values'}->{'a'}; 
    $vb=$h{'values'}->{'b'}; 
    print "$fa<br/>\n"; 
    print "$fb<br/>\n"; 
    $va=3; 
    $vb=4; 
    print "$fa<br/>\n"; 
    print "$fb<br/>\n"; 

До сих пор я получил только это (неправильно) распечатке:

This is the value of variable $va: 1 
    This is the value of variable $vb: 2 
    This is the value of variable $va: 1 
    This is the value of variable $vb: 2 

Что я ожидаю это:

This is the value of variable $va: value A 
    This is the value of variable $vb: value B 
    This is the value of variable $va: 3 
    This is the value of variable $vb: 4 

Что может быть причиной того, что интерполяция строк формата, хранящихся в хэше, не работает?

Answer 1

Чтобы задержать интерполяцию, самый простой способ заключается в использовании анонимных подлодки:

my $va=1; 
    my $vb=2; 
    my $fa=""; 
    my $fb=""; 
    my %h=('format' => { 'a' => sub { "This is the value of variable \$va: $va" }, 
          'b' => sub { "This is the value of variable \$vb: $vb" }, 
         }, 
      'values' => { 'a' => "value A", 
          'b' => "value B", 
         } 
     ); 
    $fa=$h{'format'}->{'a'}; 
    $fb=$h{'format'}->{'b'}; 
    $va=$h{'values'}->{'a'}; 
    $vb=$h{'values'}->{'b'}; 
    print $fa->() . "<br/>\n"; 
    print $fb->() . "<br/>\n"; 
    $va=3; 
    $vb=4; 
    print $fa->() . "<br/>\n"; 
    print $fb->() . "<br/>\n"; 

Тем не менее, использовать шаблонную систему вместо этого.

Answer 2

Как @ThisSuitIsBlackНе отмечалось, это может мне проблема XY. Возможно, [s]printf может помочь вам:

my %h=('format' => { 'a' => "This is the value of variable \$va: %s", 
         'b' => "This is the value of variable \$vb: %s" 
        }, 
     'values' => { 'a' => "value A", 
         'b' => "value B" 
        } 
    ); 

printf($h{format}{a}, $h{values}{a}); 

Это эквивалентно

printf("This is the value of variable \$va: %s", 'value A'); 

Что дает:

This is the value of variable $va: value A 

Answer 3

Я нашел решение в http://www.perlmonks.org/?node_id=408346

строки должны быть " обратный ':

sub quote { qq!"$_[0]"! } # Use something more sophisticated which escapes properly. 

    my $va=1; 
    my $vb=2; 
    my $fa=""; 
    my $fb=""; 

    my %h=('format' => { 'a' => 'This is the value of variable \$va: ${va}', 
          'b' => 'This is the value of variable \$vb: ${vb}' 
         }, 
      'values' => { 'a' => 'value A', 
          'b' => 'value B' 
         } 
     ); 
    $fa=$h{'format'}->{'a'}; 
    $fb=$h{'format'}->{'b'}; 
    $va=$h{'values'}->{'a'}; 
    $vb=$h{'values'}->{'b'}; 
    print eval(quote($fa))."<br/>\n"; 
    print eval(quote($fb))."<br/>\n"; 
    $va=3; 
    $vb=4; 
    print eval(quote($fa))."<br/>\n"; 
    print eval(quote($fb))."<br/>\n"; 

Теперь распечатке, как хотел:

This is the value of variable $va: value A 
    This is the value of variable $vb: value B 
    This is the value of variable $va: 3 
    This is the value of variable $vb: 4 

веселит.