Perl的正則表達式字符串部分陣列

Question

我有一個字符串：

"2012-szept-17 02:55 - someproblem: 192.167.1.1 since - $somevariables[0] $morevariables[-1]" 

，我想這些了它到一個數組

$somevariables[0] 
$morevariables[-1] 

的問題是，這些變量可以任意取名否則他們可能在字符串中的任何地方。我所知道的唯一一件事就是他們以$開頭，最後有[sg]。

這是我用正則表達式得到了最遠

my @fuu = $notimsg =~ m/(\$.+\[.+\])/g; 

的問題是表達正在此爲"$somevariables[0] $morevariables[-1]"

Answer 1

如果它們必須是有效的變量名稱（標識），然後嘗試

m/(\$\w+\[[^]]+\])/g 

As @Borodin指出，如果你真的想確保你只匹配標識符（而不是像$3abc[12]那樣奇怪），y ou可以使用

m/(\$[a-z_]\w*\[[^]]+\])/gi