为什么 @ 符号在这个 Perl 正则表达式中被转义？

Question

我目前正在讨论 Perls RegExps，我认为总体上理解它。我认为我也掌握了转义字符，即测试反斜杠，可以用 m/\/ 表示，因为反斜杠需要先购买 \ 字符，以告诉 perl 在这种情况下按照其通常的含义来搜索它。

我对下面的代码不明白的是，这个模式匹配以及为什么在使用 @ 符号测试电子邮件地址时使用 (\) （在 if 语句表达式中）。我不知道 @ 是一个需要转义的特殊字符，还是我错过了什么？

#!/usr/bin/perl

EMAIL:
{
print("Please enter your email address: ");
$email = <STDIN>;
  if ($email !~ /\@/)
  {
    print("Invalid email address.\n");
    redo EMAIL;
  }
  else
  {
    print("That could be a valid email address.");
  }
}

Answer 1

它可能被转义以避免被解释为数组印记。这并不是绝对必要的，但这是一个很难打破的习惯。

示例：

$e = "\@foo";
if ($e =~ /@/) {
  print "yay\n";
}

产量：

yay

与以下相同：

$e = "foo";
if ($e =~ m@foo@) {
  print "yay\n";
}

Answer 2

@ 不是正则表达式的保留字符，但它是 Perl 的保留字符（它是数组符号）

Answer 3

在 Perl 中，您可以转义任何潜在的正则表达式元字符并保证它是文字。

另外，对于 @ 来说，它是数组符号，因此如果有任何可能将其误认为 @/ 变量，则值得转义。

Answer 4

数组被插入到 Perl 中的双引号字符串和正则表达式中，每个元素之间有特殊变量 $" （默认情况下是空格字符）：

my @array = ('a', 'b', 'c');
print "@array";  # prints "a b c"
print "a b c" =~ /@array/;  # prints "1"

我很少使用此功能，但偶尔也会出现方便，例如：

sub line_matches_words {
    my ($line, @words) = @_;
    local $" = '[ \t]+';
    return $line =~ /^[ \t]*@words[ \t]*$/;
}