¿El operador de diamante Perl itera sobre matrices que no son mágicas (no @ARGV)?

Question

No creo que el siguiente debería funcionar, pero lo hace:

$ perl -e '@a = qw/1222 2 3/; while (<@a>) { print $_ ."\n";}' 
1222 
2 
3 
$ 

Por lo que yo sé, el operador de Perl <> shoud trabajar en gestor de archivo, globos y así sucesivamente, con la excepción del literal <> (en lugar de <FILEHANDLE>), que mágicamente itera sobre @ARGV.

¿Alguien sabe si se supone que funciona también como lo hizo en mi prueba?

Answer 1

Magia en el trabajo!

De 'perldoc perlop':

Si lo que hay dentro de los paréntesis angulares es ni un gestor de archivo, ni un simple variable escalar que contiene un nombre de gestor de archivo, typeglob, o referencia typeglob, se interpretado como un patrón de nombres estar globbed, y se devuelve una lista de nombres de archivo o el siguiente nombre de archivo en la lista, , según el contexto.

Esta es la regla que está activando con este código. Esto es lo que sucede:

1. < @a> es (sintácticamente, en tiempo de compilación) determinó que una expansión glob
2. tanto <> convierte @a en la cadena "1222 2 3" (cadena de interpolación de una matriz)
3. glob ("1222 2 3") en los retornos lista de contexto ('1222', '2', '3')

Answer 2

<FH> no es el nombre de un manejador de archivos, sino un operador de ángulo que realiza una operación de entrada de línea en el manejador. Esta confusión se manifiesta generalmente cuando la gente trata de imprimir al operador ángulo" - Programming Perl

Así que en su caso la matriz es un mango, lo cual tiene sentido, y por lo tanto se repite el operador sobre ella Así, en respuesta a su. pregunta, sí, creo que esto es estándar (pero oscuro) Perl. Es oscuro porque el lenguaje tiene formas más obvias de iterar en una matriz.

PD Sin embargo, gracias por esto, esto será genial para las competiciones de código de golf

Answer 3

Esto está invocando glob.