聲明從字符串

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