Interpolation von Hash-Format-String

Question

Ich arbeite an einem Perl-CGI-Skript. Es sollte eine Art Datenbank verarbeiten, in der Drucklayouts und die zu druckenden Werte in einem Hash gespeichert werden. Hier kommt mein Code-Schnipsel:

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"; 

Bis jetzt habe ich nur diese (falsche) Ausdruck:

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 

Was erwarte ich tun ist:

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 

Was könnte der Grund sein, dass Die Interpolation der im Hash gespeicherten Format-Strings funktioniert nicht?

Answer 1

die Interpolation zu verzögern, ist der einfachste Weg, anonym subs zu verwenden:

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"; 

Das heißt, ein Template-System verwenden Sie stattdessen.

Answer 2

Da @ThisSuitIsBlackNot bereits notiert ist, könnte dies ein XY-Problem sein. Vielleicht [s]printf Ihnen helfen:

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}); 

Dies entspricht

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

Welche gibt:

This is the value of variable $va: value A 

Answer 3

ich eine Lösung bei http://www.perlmonks.org/?node_id=408346

die Saiten haben festgestellt ' requoted ':

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"; 

Nun ist der Ausdruck wie gewünscht:

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 

prost.