Perl:用/不用" +"替换字符串标志

时间:2016-01-05 04:51:55

标签: regex perl

我正在尝试替换部分字符串。目前我使用的方法如下:

\

如果有' +'上面的代码似乎不起作用。涉及的标志。 对于例如代码:

my $text = $ARGV[0];
my $in_d = $ARGV[1]; 
my $out_d = "Sample_text";

$text =~ s/$in_d/$out_d/;

输出:

my $text = "I+here starving here";
my $input_d = "I\+here";
my $out_d = "I";
$text =~ s/$input_d/$out_d/;
print $text."\n";

如何在不考虑相关字符的情况下确保替换文本?感谢您的帮助。

1 个答案:

答案 0 :(得分:2)

使用\Q\E序列来转义字符块。

\Qfoo+\E

所以,它会是

$text =~ s/\Q$input_d\E/$out_d/;

DEMO