Dlaczego symbol @ jest unikany w tym wyrażeniu regularnym Perla?

Question

Obecnie obejmuję Perls RegExps i ogólnie rozumiem to myślę. Uciekając postaciom, które również uchwyciłem, tj. Testując odwrotny ukośnik, oznaczony przez m/\/tym, że należy ukrócić odwrotny ukośnik, należy kupić \ znak pierwszy, aby powiedzieć perlowi w tym przypadku, aby wyszukać go w formie odpowiadającej jego zwykłemu znaczeniu. .

To, czego nie rozumiem poniższym kodem, to taki wzór dopasowania i dlaczego (\) jest używany podczas testowania adresu e-mail za pomocą @ symbold (w wyrażeniu if). Nie jestem świadomy @ jest specjalną postacią, która potrzebuje ucieczki, czy coś przeoczyłem?

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

@ nie jest zastrzeżony znak względem regexes, ale to jest dla Perl (to symbol tablica)

Answer 2

To prawdopodobnie uciekł, aby uniknąć interpretowane jako Sigil tablicy. Nie jest to bezwzględnie konieczne, ale złamanie jest trudnym nawykiem.

Przykłady:

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

Wynik:

yay 

samo z:

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

Answer 3

W Perl, można uniknąć potencjalnego regex metaznaku i być zagwarantowana jest to dosłowne.

Również dla @ jest to sygnatura tablicowa, więc jeśli istnieje jakakolwiek szansa, że ​​zostanie pomylona ze zmienną @/, warto ją wydostać.

Answer 4

Tablice są interpolowane do obu podwójnych cudzysłowów i regexes w Perl, ze szczególnym zmiennej $" (domyślnie spacja) dzieje pomiędzy poszczególnymi elementami:

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

rzadko korzystać z tej funkcji, ale od czasu do czasu przydaje się, na przykład:

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