perl-language-es

... lo que no es tan bonito.
Perl no lo limita a la utilización de una barra / con qq ; Puedes usar cualquier caracter (visible).
use feature 'say';
say qq/You can use slashes.../;
say qq{...or braces...};
say qq^...or hats...^;
say qq|...or pipes...|;
# say qq ...but not whitespace. ;
También puede interpolar arrays en cadenas.
use feature 'say';
my @letters = ('a', 'b', 'c');
say "I like these letters: @letters.";
# => I like these letters: a b c.
Por defecto, los valores están separados por espacios, porque la variable especial $"
predeterminada en un solo espacio. Esto, por supuesto, se puede cambiar.
use feature 'say';
my @letters = ('a', 'b', 'c');
{local $" = ", "; say "@letters"; }
# a, b, c
Si lo prefiere, tiene la opción de use English y cambiar $LIST_SEPARATOR en $LIST_SEPARATOR lugar:
use v5.18; # English should be avoided on older Perls
use English;
my @letters = ('a', 'b', 'c');
{ local $LIST_SEPARATOR = "\n"; say "My favourite letters:\n\n@letters" }
Para algo más complejo que esto, debes usar un bucle en su lugar.
say "My favourite letters:";
say;
for my $letter (@letters) {
say " - $letter";
}
La interpolación no funciona con hashes.
use feature 'say';
my %hash = ('a', 'b', 'c', 'd');
say "This doesn't work: %hash"
# This doesn't work: %hash
Algunos códigos abusan de la interpolación de referencias - evítalo .
https://riptutorial.com/es/home 34