Função Perl qw

Descrição

Esta função é uma maneira rápida de especificar muitas palavras entre aspas simples. Por exemplo, qw (foo bar baz) é equivalente a ('foo', 'bar', 'baz'). Alguns programadores acham que usar qw torna os scripts Perl mais fáceis de ler. Na verdade, você pode usar qualquer conjunto de delimitadores, não apenas os parênteses.

Simplesmente você pode usar qw () para preparar um array conforme mostrado no exemplo abaixo.

Sintaxe

A seguir está a sintaxe simples para esta função -

qw EXPR

Valor de retorno

Esta função retorna uma lista que consiste no elemento de LIST avaliado como se estivessem entre aspas simples.

Exemplo

A seguir está o código de exemplo que mostra seu uso básico -

#!/usr/bin/perl -w

@array = qw(This is a list of words without interpolation);

foreach $key (@array) {
   print"Key is $key\n";
}

Quando o código acima é executado, ele produz o seguinte resultado -

Key is This
Key is is
Key is a
Key is list
Key is of
Key is words
Key is without
Key is interpolation