R：如何匹配正則表達式，但沒有串

Question

我有正則表達式的字符串數據，但想排除子

dat <- c('long_regex_other_stuff','long_regex_other_random.something') 
(dat[grep('long_regex',dat)]) 
(dat[grep('long_regex.*(?!.*something$)',dat)]) 

第一grep的產量預計

"long_regex_other_stuff"   "long_regex_other_random.something" 

如何獲得第二的grep上班？所需的輸出是

"long_regex_other_stuff" 

編號：Regular expression to match a line that doesn't contain a word?

Answer 1

你需要在正則表達式的字符串something前去掉前面的.*和負先行後添加它，

> dat <- c('long_regex','long_regex.something') 
> (dat[grep('long_regex(?!.*something).*',dat, perl=T)]) 
[1] "long_regex" 
> (dat[grep('long_regex(?!.*\\bsomething\\b).*',dat, perl=T)]) 
[1] "long_regex" 

long_regex(?!.*something)負前瞻在此正則表達式中聲明，在子串long_regex之後不存在字符串something。

> dat <- c('long_regex_other_stuff','long_regex_other_random.something') 
> (dat[grep('long_regex(?!.*\\bsomething\\b).*',dat, perl=T)]) 
[1] "long_regex_other_stuff"