regex - 如何在 Perl 中替换字符串？

Question

我正在尝试做一个简单的字符串替换，但没有成功。

#!/usr/bin/perl

$var = "M4S120_appscan";
$var1 = "SCANS";

$path =~ s/$var/$var1/;

print "Path is $path"

输出应该是 "Path is SCANS" ，但它在“输出”中不打印任何内容。

Answer 1

要将字符串中的“M4S120_appscan”替换为“SCANS”:

$str = "Path is M4S120_appscan";
$find = "M4S120_appscan";
$replace = "SCANS";
$str =~ s/$find/$replace/;
print $str;

如果这是你想要的。