perlを使って変数にメモリグループを評価するには？ perlスクリプトで

Question

が、私は文字列変数にメモリ群特殊変数を評価したい：

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で、2番目は4である」（第2の印刷のように）。

私のサンプルでは、​​特殊変数は2つしかありませんが、$calと$regexがデータベースに格納されているため、特殊文字の数を事前に決定することはできません。

$calの文字列を評価するにはどうすればよいですか（PHPのevalなど）？

Answer 1

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

のようなものを試してみてください内側のエスケープされた引用符は内挿用です

のような印刷セグメントを組み合わせることができます

Answer 2

マッチを挿入するパターンを定義したいと思うように聞こえるのですか？これにはprintfを使用できます。

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

あなたは、単に一緒にすべての試合に参加したい、とあなたがあるかもしれませんどのように多くのわからない場合は、「外dblquotesはevalのためのもので、この

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