cosas extrañas en el interior del operador de diamantes Perl

Question

Por favor, ¿alguien puede ayudar con esto:

perl -e 'print for <{a,b,c}{1,2,3}>' 

simplemente no entienden cómo funciona. ¡Y funciona! Produciendo

a1a2a3b1b2b3c1c2c3 

en la salida.

¿Alguien sabe lo que está pasando dentro del operador de diamantes?

Answer 1

Es otra forma de representar glob bing. Básicamente, los curlies le dicen al operador glob que tome cada elemento separado por comas y combine en todas las posibilidades.

Una forma más clara de ver esto es separados por comas las salidas individuales:

$ perl -e 'print join ",", <{a,b,c}{1,2,3}>;' 
a1,a2,a3,b1,b2,b3,c1,c2,c3 

---

Desde perldoc -f glob:

Si los frenos no estén vacíos se utilizan los únicos caracteres comodín en el glob, no coincide ningún nombre de archivo, pero potencialmente se devuelven muchas cadenas. Por ejemplo, esto produce nueve cadenas, una para cada emparejamiento de frutas y colores:

@many = glob "{apple,tomato,cherry}={green,yellow,red}";