如何使用perl來評估變量中的內存組？

Question

在perl腳本，我想在一個字符串變量來評估存儲器組特殊的變量：

my $string="3-4"; 
my $cal='first is $1;second is $2'; 
my $regex='^(.)-(.)$'; 

if($string=~ $regex){ 
    print $cal; 
     #print "first is $1;second is $2"; 
} 

我想打印：「首先是3;二是4」（如在第二打印）。

在我的示例中，只有2個特殊變量，但特殊字符的數量無法預先確定，因爲$cal和$regex存儲在數據庫中。

如何評估字符串$cal（如在PHP中與eval）？

Answer 1

print eval "\"$cal\"","\n"; 

外dblquotes是EVAL「 」內轉義引號是插值內print "$1 $2","\n";

或者，你可以結合打印段像這樣print eval "\"$cal\n\"";

Answer 2

聽起來像你想要定義一個模式，你的比賽將被插入？您可以使用printf，例如

my $string="3-4"; 
my $cal="%s %s\n"; 
if($string=~ '^(.)-(.)$'){ 
    printf($cal, $1, $2); 
} 

如果你只是想加入一起比賽，而你不知道有多少可能，嘗試這樣的事情

my @matches=$string=~ '^(.)-(.)$'; 
if (scalar(@matches)) 
{ 
    print join(' ',@matches); 
}