Question

perl 怎么通过变量进行模式匹配？

原来的匹配程序是这样的，

$Part_1 = "111122223333";
print $Part_1;
print "\n";

$Part_1 =~ /(\d{4})(\d{4})(\d{4})/;

$Current_Bit = $1;
print $Current_Bit;
$Current_Bit = $2;
print $Current_Bit;
$Current_Bit = $3;
print $Current_Bit;

其中我想把匹配模式存到变量中进行匹配，例如：
$ref = '(\d{4})(\d{4})(\d{4})';
$Part_1 =~ /$ref/;
可是我不知道改怎么做，我是初学者，请多多指教！！

Answer 1

你没有试验吧，就你的代码就可以
$ref = '(\d{4})(\d{4})(\d{4})';
$Part_1 =~ /$ref/;