Perl 单引号替换

Question

最近几天我一直在为 Perl 中的字符替换而苦苦挣扎：

我有一个被单引号包围的字符串，但是，在该字符串中，我有一个包含单引号的名称，比如说O'Neil 。 现在，考虑到我的字符串被单引号包围的事实，Perl 将名称中的单引号识别为字符串的结尾。

用双引号将整个字符串括起来不是一种选择，因为它是从 URL 构建的。

现在，我做了一些研究，没有找到任何东西，现在我问你们：

我尝试使用以下语法：

$Daten =~ s/\\'/\\\\'/g; 这当然不起作用......

$Daten是包含姓名O'Neil*的整个字符串

现在，我想用反斜杠引号替换单引号： ' -> \\'

任何人有任何想法？

最好的问候， Ionut Sanda

Answer 1

也许像下面的代码应该符合您的要求

use strict;
use warnings;

my $debug = 1;

while( my $line = <DATA> ) {
    $line =~ s/(.*)'(.+)'(.+)'(.*)/$1'$2\\'$3'$4/g;
    print $line if $debug;
}
__DATA__
'USER1:O'NEILL:PATRICK:M:lastname_firstname@company.com'
datax 'USER1:O'NEILL:PATRICK:M:lastname_firstname@company.com' datay

输出

'USER1:O\'NEILL:PATRICK:M:lastname_firstname@company.com'
datax 'USER1:O\'NEILL:PATRICK:M:lastname_firstname@company.com' datay

Answer 2

好吧，由于您没有提供示例或代码，因此我必须即兴发挥

use strict;
use warnings;

my $debug = 1;

while( my $Daten = <DATA> ) {
    $Daten =~ s/(.*)'(.+)'(.+)'(.*)/$1'$2\\'$3'$4/g;  # Magic happens here
    print $Daten if $debug;
}

__DATA__
'USER1:O'NEILL:PATRICK:M:lastname_firstname@company.com'
datax 'USER1:O'NEILL:PATRICK:M:lastname_firstname@company.com' datay

输出

'USER1:O\'NEILL:PATRICK:M:lastname_firstname@company.com'
datax 'USER1:O\'NEILL:PATRICK:M:lastname_firstname@company.com' datay

否则我没有足够的信息来理解您的问题（没有数据样本，没有代码片段）。