0

我需要帮助来完成以下上下文的 Perl 正则表达式:

[a-zA-Z:]

------------------------------------------
I have                      I need
------------------------------------------
> str(datasets::ris$)       datasets::ris
> plot(datasets::iris$      datasets::iris
str(datasets::iris$)        datasets::iris
plot(datasets::iris$        datasets::iris
str(iris$)                  iris
plot(iris$                  iris
plot(IRIs$                  IRIs
iris$                       iris
------------------------------------------

http://rubular.com/r/kyLAy679Ql

谢谢,

4

2 回答 2

1

结果在http://rubular.com/r/IgInzqrwwX

你只需要在你的正则表达式中添加一个前瞻[a-zA-Z:]+(?=\s*\$)

于 2016-04-29T23:21:03.163 回答
0

您可以将此正则表达式与可选的匹配和捕获组一起使用。您想要的文本在捕获的组 #1 中可用:

/(?:[^(\n]*\()?([a-zA-Z:]+)/

红色演示

于 2016-04-29T22:51:49.940 回答