R gsub和perl

Question

嗨我正在尝试执行特定的模式匹配。

我想站起来。街道名称。

y <- c("Straße des 18 JAN.") 

gsub("(.*)([1-3]?[0-9]\\.?)(JAN\\.?U?A?R?)(.*)","\\1 \\2 JANUAR \\4",y, perl=T) 

我想要的是它使一切，但重写支架3 JANUAR，到目前为止，我不能处理。

在此先感谢。

Answer 1

正则表达式必须是

gsub("(.*)([1-3]?[0-9]\\.?) (JAN\\.?U?A?R?)(.*)","\\1\\2 JANUAR\\4",y, perl=TRUE) 

# [1] "Straße des 18 JANUAR" 

我与(JAN开始术语之前添加了一个空白（）。此外，我删除了\\1和\\2之间以及JANUAR和\\4之间的空格。