¿Cuál es la diferencia entre comillas simples y dobles en Perl?

Question

En Perl, ¿cuál es la diferencia entre ' y "?

Por ejemplo, tengo 2 variables, como a continuación:

$var1 = '\('; 
$var2 = "\("; 

$res1 = ($matchStr =~ m/$var1/); 
$res2 = ($matchStr =~ m/$var2/); 

La declaración $res2 se queja de que Unmatched (before HERE mark in regex m.

Answer 1

comillas dobles uso expansión de variables. las comillas simples no

en una La cadena de comillas dobles necesita escapar de ciertos caracteres para evitar que se interpreten de manera diferente. En una sola cadena entre comillas no lo hace (a excepción de una barra invertida si es el carácter final de la cadena)

my $var1 = 'Hello'; 

my $var2 = "$var1"; 
my $var3 = '$var1'; 

print $var2; 
print "\n"; 
print $var3; 
print "\n"; 

Esta es la salida

Hello 
$var1 

Perl monjes tiene una muy buena explicación de este here

Answer 2

comillas dobles interpretan, y comillas simples no

Answer 3

'no resolverá las variables y se escapa

"resolverá variables y caracteres de escape.

Si desea almacenar el carácter \ en la cadena en $ var2, use "\\ ("

Answer 4

"" Admite la interpolación variable y el escape. por lo que el interior "\("\ escapa (

Donde como '' no admite tampoco. Así '\(' es literalmente \(

Answer 5

Perl toma las cadenas entre comillas simples 'tal cual' e interpola las cadenas entre comillas dobles. Interpolar medios, que sustituye las variables con valores variables, y también entiende los caracteres escapados. Por lo tanto, su "\" se interpreta como '(', y su expresión regular se convierte en m/(/, esta es la razón por la que Perl se queja.

Answer 6

Si usted va a crear cadenas de expresiones regulares que realmente debería utilizar el qr// quote-like operator:

my $matchStr = "("; 
my $var1 = qr/\(/; 
my $res1 = ($matchStr =~ m/$var1/); 

Crea una expresión regular compilada que es mucho más rápido que el simple uso de una variable que contiene una cadena. También devolverá una cadena si no se usa en un contexto regex, por lo que puede decir cosas como

print "$var1\n"; #prints (?-xism:\()