如何刪除單引號但不是perl中的撇號

Question

我想知道如何刪除單引號但不是perl中的撇號。

例如： '！又下雨了'

打印

又下雨了！

非常感謝

Answer 1

如果假設一個單引號總是之前或之後的空白，下面的一對正則表達式應該工作：

$line =~ s/\s'/ /g; #preceded by whitespace 
$line =~ s/'\s/ /g; #followed by whitespace 

你還需要考慮如果字符串以單引號開頭或結尾：

$str =~ s/^'//; #at the start of a string 
$str =~ s/'$//; #at the end of a string 

Answer 2

棘手的一個。一些單引號出現在字母之後或之前，但您只想刪除字母之間的那些引號。也許這樣的事情，使用負lookarounds：

s/(?<![\pL\s])'|'(?![\pL\s])//g; 

之後或之前這將刪除要麼單引號沒有字母或空格。很多的否定來追蹤那裏。擴展版本：

s/ 
    (?<![\pL\s])' # no letters or whitespace before single quote 
    |    # or 
    '(?![\pL\s]) # no letters or whitespace after single quote 
//gx; 

這將覆蓋類的字眼 - 爲禮Algranti在評論中指出 - boys' toys和that's，但語言始終是棘手的預測。例如，這將是幾乎不可能解決類似：

'She looked at him and said, 'That's impossible!'' 

當然，如果你希望你的單引號僅在年底或字符串的開頭出現，你並不需要成爲這個幻想，您可以使用任何必要的方法刪除最後一個字符和第一個字符。比如，例如，如人造衛星只是建議：

s/^'|'$//g; 

Answer 3

foreach (<DATA>) { 
    s/(:?(^\s*'|'$))//g; 
    print; 
} 
__DATA__ 
'It's raining again!' 

輸出

It's raining again! 

解釋

• 有做多一個比一個方式
• (:?)防止非所需捕獲