このPerl正規表現で@記号がエスケープされているのはなぜですか？

Question

現在、私はPerls RegExpsをカバーしており、全体的に私はそれを理解しています。文字をエスケープする私はまた、バックスラッシュを進める必要があるという点でバックスラッシュをテストすると考えています。この例ではperlに最初に\を付けて、それを通常の意味。

私が持っている以下のコードでは分かりませんが、このパターンは一致しています。@記号の付いた電子メールアドレスをテストするときにはなぜ（\）が使われますか？私はエスケープを必要とする特殊文字は気付かないか、何かを逃したことがありますか？

#!/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

@は、正規表現に関しては予約文字ではありませんが、それは（それが配列のシンボルです）

Answer 2

おそらく、配列の印章として解釈されるのを避けるためにエスケープしていますperlのためのものです。それは厳密には必要ではありませんが、それを破るのは難しい習慣です。

例：

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

利回り：と同じ

yay 

：

Perlで

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

Answer 3

、あなたは、任意の潜在的な正規表現のメタ文字をエスケープすることができ、それはリテラルです保証され。

また、@の場合、それは配列sigilなので、@/という変数と間違えてしまう可能性がある場合は、エスケープする価値があります。

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]*$/; 
}