¿Qué cadena no vacía hace/^ $/coincidir?

Question

En un Perl SO answer, un cartel utiliza este código para que coincida con las cadenas vacías:

$userword =~ /^$/; #start of string, followed immediately by end of string 

A lo que brian d foy comentó:

Realmente no se puede decir que debido a que coincide con uno en particular no -cuerda vacía.

Pregunta: ¿Qué cadena no vacía coincide con esta? ¿Es una cadena que consiste en "\r" solamente?

Answer 1

Vamos a comprobar la documentación, ¿por qué no? Cita perlre,

$: Coincide con el final de la línea (o antes del salto de línea al final)

Dada

\z: Que sólo al final de la cadena

Eso significa /^$/ es equivalente a /^\n?\z/.

$ perl -E'$_ = ""; say /^$/ ||0, /^\n?\z/ ||0, /^\z/ ||0;' 
111 

$ perl -E'$_ = "\n"; say /^$/ ||0, /^\n?\z/ ||0, /^\z/ ||0;' 
110 

Tenga en cuenta que los cambios /m lo ^ y $ partido. Debajo de /m, ^ coincide al comienzo de cualquier "línea", y $ coincide antes de cualquier nueva línea y al final de la cadena.

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /^/g' 
matched at 0 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /$/g' 
matched at 7 
matched at 8 

Y el uso/m:

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /^/mg' 
matched at 0 
matched at 4 <-- new 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /$/mg' 
matched at 3 <-- new 
matched at 7 
matched at 8 

\A, \Z y \z aren' t afectados por /m:

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /\A/g' 
matched at 0 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /\z/g' 
matched at 8 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /\Z/g' 
matched at 7 
matched at 8 

Answer 2

use strict; 
use warnings; 

use Test::More; 

ok("\n" =~ /^$/); 
ok("\n" =~ /^\z/); 
ok("\n" =~ /^\A\z/); # Better as per brian d. foy's suggestion 

done_testing; 

Si desea probar si una cadena está vacía, utilice /^\z/ o ver si length de $str es cero (que es lo que prefiero).

Salida:

ok 1 
not ok 2 
not ok 3

Answer 3

La expresión regular /^$/ coincide con la cadena no vacía "\n".

De forma predeterminada, la coincidencia de expresiones regulares de Perl asume que la cadena contiene una sola "línea" de texto.

^ coincide al principio de la línea; en ausencia de un modificador /m, este es el mismo que el comienzo de la cadena.

$ partidos ya sea el final de la línea, o antes de una nueva línea al final (que es lo que hace /^$/ partido de la cadena no vacía "\n").

Citando perldoc perlre:

Por defecto, el "^" personaje está garantizada para que coincida con sólo el principio de la cadena, el carácter "$" sólo el final (o antes de la nueva línea al final), y Perl realiza ciertas optimizaciones con la suposición de que la cadena contiene solo una línea. Las nuevas líneas integradas no se combinarán con "^" o "$". Sin embargo, puede tratar una cadena como un búfer multilínea, de modo que "^" coincidirá después de cualquier nueva línea dentro de la cadena (excepto si la nueva línea es el último carácter en la cadena), y " $ "coincidirá antes de cualquier nueva línea. A un costo de un poco más por encima, puede hacer esto utilizando el modificador/m en el operador de coincidencia de patrón.

Answer 4

Guión:

my $str = "\n"; 

my $test1 = ($str =~ /^$/) ? 1 : 0; 
my $test2 = ($str =~ /\A\z/) ? 1 : 0; 

print "$test1, $test2\n"; 

Salida:

1, 0