如何在字符串中擴展哈希變量？

Question

如果字符串中的變量是簡單的標量，比如使用正則表達式的「$ foo = 5」，我已經找到了這樣做的方法。但問題是什麼，如果字符串中的變量是： $ FOO - > {}吧是等於5

所以樣本字符串爲：

「這是$的哈希值的字符串FOO - > {欄}」。

我怎樣才能展開了閱讀：

「這是5哈希值的字符串」

感謝。

編輯更多的解釋：

我有一個字符串（我相信我不是最擅長的這個詞彙？）那就是「Lorem存有$ FOO - > {條} Lorem存有」我從一些文本來源收到。我想取這個字符串，用我的代碼中的變量的實際值替換所有的變量名稱。

Answer 1

你有什麼有被稱爲 「模板」。因此，您正在尋找一個模板系統。

假設這些引號實際上並不在字符串中，我知道唯一能夠理解該模板語言的模板系統是String::Interpolate。

$ perl -E' 
    use String::Interpolate qw(interpolate); 
    my $template = q!This is a string with hash value of $foo->{bar}!; 
    local our $foo = { bar => 123 }; 
    say interpolate($template); 
' 
This is a string with hash value of 123 

如果引號是字符串的一部分，那麼您的代碼是Perl代碼。因此，你可以通過執行字符串來得到你想要的。這可以使用eval EXPR完成。

$ perl -E' 
    my $template = q!"This is a string with hash value of $foo->{bar}"!; 
    my $foo = { bar => 123 }; 
    my $result = eval($template); 
    die $@ if $@; 
    say $result; 
' 
This is a string with hash value of 123 

我強烈建議不要這樣做。我沒有特別找到String :: Interpolate。 Template::Toolkit可能是模板系統的流行選擇。

$ perl -e' 
    use Template qw(); 
    my $template = q!This is a string with hash value of [% foo.bar %]!."\n"; 
    my %vars = (foo => { bar => 123 }); 
    Template->new()->process(\$template, \%vars); 
' 
This is a string with hash value of 123 

Answer 2

這應該工作：

$foo->{"bar"} = 5; 
printf "This is a string with hash value of $foo->{\"bar\"}]";