声明从字符串

Question

一个变量我想包括以下字符串的Perl脚本价值为$的QName：

队列（SYSTEM.SELECTION.VALIDATION.QUEUE）

所以我试着包括SYSTEM.SELECTION.VALIDATION.QUEUE成$QName，如下代码：

my ($QName) = /QUEUE\((\w+)\)/; 
print "$QName \n"; 

然而，该代码不能成功地产生输出。

输出应该是：

SYSTEM.SELECTION.VALIDATION.QUEUE

Answer 1

你需要在你的模式中添加点：

my ($QName) = /QUEUE\(([\w.]+)\)/; 
#     ^^^ 
#       | 
#       `--You're missing this dot: 
# The "SYSTEM.SELECTION.VALIDATION.QUEUE" value comprises letters AND DOTS 

演示：https://ideone.com/L4FESo

Answer 2

你想要达到的目标并不是很清楚，但是我是顾ESS你想：

$input_string = 'QUEUE(SYSTEM.SELECTION.VALIDATION.QUEUE)'; 
my ($QName) = $input_string =~ /QUEUE\((.+?)\)/; 
print $QName,"\n"; 

输出：

SYSTEM.SELECTION.VALIDATION.QUEUE