perl - =~ 在 Perl 中是什么意思？

Question

这个问题已经有答案了:

已关闭 11 年前。

Possible Duplicate:
What does =~ do in Perl?

在我正在检查的 Perl 程序中(即 plutil.pl )，我看到很多 =~在 XML 解析器部分。例如，这里是 UnfixXMLString (1.7 上的 159 到 167 行):

sub UnfixXMLString {
    my ($s) = @_;

    $s =~ s/&lt;/</g;
    $s =~ s/&gt;/>/g;
    $s =~ s/&amp;/&/g;

    return $s;
}

据我所知，它正在获取一个字符串，并使用 =~ 对其进行修改。运算符，然后返回修改后的字符串，但是它到底在做什么？

Answer 1

=~ 是 Perl binding operator 。它通常用于将正则表达式应用于字符串；例如，测试字符串是否与模式匹配:

if ($string =~ m/pattern/) {

或者从字符串中提取组件:

my ($first, $rest) = $string =~ m{^(\w+):(.*)$};

或者应用替换:

$string =~ s/foo/bar/;