Perl的正則表達式來查找關鍵字，而不是變量

Question

我試圖創建一個正則表達式如下：

print $time . "\n"; - >比賽只打印因爲時間是一個變量（$）之前

$epoc = time(); - >只匹配時間

我現在的正則表達式是/(?-xism:\b(print|time)\b)/g，但它在第一個示例中匹配$ time的時間。

Check here.

我試過的東西[^ \ $]但後來它不匹配打印了。

（我將有更多的像打印關鍵字|時間| ... | ...）

感謝

Answer 1

你需要的是一個負回顧後(?<!\$)，它是零寬度，從而不會「消耗」字符。

(?<!\$)a表示匹配a如果沒有在文字$之前。請注意，我們逃過了$，因爲它意味着字符串結束（或根據m修飾符的行）。

你的正則表達式看起來像(?-xism:\b(?<!\$)(print|time)\b)。

我想知道爲什麼你要關閉xism修飾符。他們默認關閉。
所以只需使用/\b(?<!\$)(?:print|time)\b/g作爲模式。

Online demo SO regex reference

Answer 2

解析Perl代碼是一種常見的和有用的教學工具，因爲學生必須瞭解的解析技術，他們正試圖解析代碼。

然而，要做到這一點正確，最好的建議是使用PPI

下面的腳本解析本身並輸出所有的裸字的。如果你願意，你可以將裸字列表與你試圖匹配的列表進行比較。請注意，這將避免中的字符串，評論的事情，等

use strict; 
use warnings; 

use PPI; 

#my $src = do {local $/; <DATA>}; # Could analyze the smaller code in __DATA__ instead 
my $src = do { 
    local @ARGV = $0; 
    local $/; 
    <>; 
}; 

# Load a document 
my $doc = PPI::Document->new(\$src); 

# Find all the barewords within the doc 
my $barewords = $doc->find('PPI::Token::Word'); 
for (@$barewords) { 
    print $_->content, "\n"; 
} 

__DATA__ 
use strict; 
use warnings; 

my $time = time; 

print $time . "\n"; 

輸出：

use 
strict 
use 
warnings 
use 
PPI 
my 
do 
local 
local 
my 
PPI::Document 
new 
my 
find 
for 
print 
content 
__DATA__