刪除單詞中的任何非單詞字符，但空格和單引號

Question

想要清除一些文本。所以，要刪除除\w和\s之外的任何內容，還要保留單詞內部的單個'。 （如想保持它在的話就像don't。

我能做

perl -plE "s/[^\w\s']//g" <<< "'a:b/c d????ef' don't" 

其保持'，但它保持它也是在開始時或結束字符串，例如，它打印

'abc def' don't 

我無法執行保留此(?<\w)'(?=\w)，例如刪除'，除非它位於兩個單詞字符之間

通緝結果：

abc def don't 

如何做到這一點？

Answer 1

你可以這樣做：

s/[^\w\s']|(?<!\w)'|'(?!\w)//g 

刪除一切，要麼是

• 不是（一個字字符或空格或'），或
• 一個'一個字符前面沒有一個單詞字符，或者
• a '沒有跟着單詞字符

第一個子句將匹配（和刪除）我們顯然不想保留的所有字符。

第二個和第三個子句將刪除所有'個字符，除非它們被雙方的單詞字符包圍。

Answer 2

你也可以使用一個全球性的研究，而不是替代品，這樣你只需要描述你想保留什麼，圖案變得更加簡單：

perl -ne"print /[\w\s]|\b'\b/g" <<< "'a:b/c d????ef' don't"