修改和替换字符串中带引号的子字符串

Question

我正在做一个语言翻译项目，但在中间的某个地方卡住了。

我有这样的情况，有一根绳子

print "$Hi $There","$Welcome $Aboard"

我想得到

print "Hi There", "Welcome Aboard" 

即提取带引号的子字符串，去掉“$”并用新的子字符串替换原始子字符串。

我可以提取和更改引用的子字符串，但当我尝试用原始子字符串替换它们时，它不起作用。要显示示例代码：

#!/usr/bin/perl
use strict;
use warnings;

my $str = "print \"\$Hi \$There\",\"\$Welcome \$Aboard\"";
print "Before:\n$str\n";
my @quoted = $str =~ m/(\".*?\")/g; #Extract all the quoted strings
foreach my $subStr (@quoted)
{
  my $newSubStr = $subStr;
  $newSubStr =~ s/\$//g;    #Remove all the '$'

  $str =~ s/$subStr/$newSubStr/g;   #Replace the string**::Doesn't work**
}
print "After:\n$str\n";

我不知道为什么替换失败。会感谢你的帮助。

Answer 1

尝试此代码：因为您想提取双引号中存在的子字符串并在该双引号中去掉$。您可以尝试下面的代码

代码：

#!/usr/bin/perl    
use strict;
use warnings;

my $str = "print \"\$Hi \$There\",\"\$Welcome \$Aboard\"";
print "Before:\n$str\n";

while($str =~ m/(\"[^\"]*\")/isg) #Extract all the quoted strings
 {
      $str =~ s/\$//isg; # Strip $ from $str
    }
print "After:\n$str\n"; 

Perl单行代码：

perl -0777 -lne "if($_ =~ m/\".*?\"/isg) {$_ =~ s/\$//isg; print $_;} else { print $_;}" Inputfile

Answer 2

\$(?=[^"]*"(?:[^"]*"[^"]*")*[^"]*$)

试试这个。仅当 $ 位于 “ 和 ” 之间时，这将替换 $。

请参阅演示。

http://regex101.com/r/lS5tT3/61

Answer 3

您需要在正则表达式中添加 \Q 和 \E。您的代码的工作方式如下：

#!/usr/bin/perl
use strict;
use warnings;

my $str = "print \"\$Hi \$There\",\"\$Welcome \$Aboard\"";
print "Before:\n$str\n";
my @quoted = $str =~ m/(\".*?\")/g; #Extract all the quoted strings
foreach my $subStr (@quoted)
{
  my $newSubStr = $subStr;
  $newSubStr =~ s/\$//g;    #Remove all the '$'

  $str =~ s/\Q$subStr\E/$newSubStr/g;   # Notice the \Q and \E
}
print "After:\n$str\n";

发生的事情是您的$subStr看起来像这样，例如："$Hi$有"

我不确定它是否将< code>$Hi和< code>$There解释为变量，但它并不像您想要的那样匹配文字字符串。您可以在quotemeta文档中阅读有关< code>\Q和< code>\E的信息。