Perché il simbolo @ è scappato in questa espressione regolare di Perl?

Question

Attualmente sto coprendo Perls RegExps e nel complesso lo capisco. Penso di aver fatto fuoriuscite di caratteri, cioè di testare una barra rovesciata, denotabile da m/\/in quanto è necessario procedere con il backslash comprare il carattere \ prima a dire a perl in questa istanza di cercarlo come apposto al suo solito significato .

Quello che non capisco con il codice qui sotto è, questo modello corrisponde e perché (\) viene utilizzato quando si verifica l'indirizzo di posta elettronica con @ symbold (nell'espressione if statement). Non sono consapevole @ è un personaggio speciale che ha bisogno di scappare o mi è sfuggito qualcosa?

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

@ non è un carattere riservato rispetto alla regex, ma è per Perl (è il simbolo di matrice)

Answer 2

E 'probabilmente sfuggito per evitare di essere interpretato come un sigillo array. Non è strettamente necessario, ma è un'abitudine difficile da rompere.

Esempi:

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

rendimenti:

yay 

stesso con:

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

Answer 3

In Perl, si può sfuggire qualsiasi potenziale metacarattere regex ed essere garantito è un letterale.

Inoltre, per @, è il sigillo dell'array, quindi se c'è qualche possibilità di essere scambiato per una variabile @/, vale la pena fuggire.

Answer 4

Gli array sono interpolate in entrambe le stringhe e regex doppi apici in Perl, con la variabile speciale $" (di default un carattere di spazio) che va tra ogni elemento:

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

Io uso raramente questa funzione, ma di tanto in tanto si è utile, ad esempio:

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