Início / coding / Perguntas / 77476301
Accepted
con
Asked: 2023-11-14 03:13:03 +0800 CST

Como posso usar Perl, cada um com uma lista?

  • 772

Eu estou tentando:

#!/usr/bin/env perl

use 5.038;
use warnings FATAL => 'all';
use autodie ':all';
use Devel::Confess 'color';

while (my ($i, $t) = each('a','b','c')) {
    say "$i, $t";
}

mas recebo um erro:

Experimental each on scalar is now forbidden

('a','b','c')é um escalar?

Eu realmente gosto de Perl eachem arrays, pois não preciso declarar uma variável iteradora.

Eu também tentei

while (my ($i, $t) = each(('a','b','c'))) {

while (my ($i, $t) = each(qw('a','b','c'))) {

mas recebo o mesmo erro.

while (my ($i, $t) = each(@{ ('a','b','c') }) {

mas o texto acima apresenta um erro: Useless use of a constant ("a") in void contextque obtive em como resolver o problema “Valores experimentais em escalar agora são proibidos” em perl

Como posso convencer Perl eachde que ('a','b','c') é um array?

perl

2 respostas

  1. Best Answer

    Como posso convencer cada um de Perl de que ('a','b','c') é um array?

    Você não pode, porque ('a','b','c')é apenas uma lista de literais de string (escalares). Não é uma variável de array.

    Os documentos de cada um são claros

    cada HASH

    cada MATRIZ
    ...

    Então ele quer uma variável, seja um hash ou um array.

    Há também a questão do erro que surge

    mas recebo um erro:

    Experimental each on scalar is now forbidden

    ('a','b','c')é um escalar?

    Primeiro, a mensagem de erro completa que recebo para esse código

    perl -wE'while( my ($i, $t) = each(qw(a b c)) ) { say "$i, $t" }'

    é instrutivo

    Experimental each on scalar is now forbidden at -e line 1.
Type of arg 1 to each must be hash or array (not list) at -e line 1, near "qw(a b c)) "
Execution of -e aborted due to compilation errors.

    A função eaché prototipada ,

    perl -wE'say prototype "CORE::each"'  #-->  \[%@]

    então ele precisa de um item que precisa ser uma variável hash ou array. Ao passar uma lista para ela, temos uma incompatibilidade que é detectada em tempo de compilação e deve ser fatal. Então, o jogo acabou.

    Porém, e acredito que seja uma cortesia adicional, também recebemos aquela mensagem sobre " experimental each on scalar ".

    O problema é que, se essa incompatibilidade no protótipo passasse (não fosse fatal), a lista 'a', 'b', 'c'seria então uma expressão a ser avaliada, que produzia três escalares ou um escalar (pelo operador vírgula, os dois primeiros itens são descartados e o a expressão retorna 'c'ou, se a precedência for o contrário, 'a'é retornada e o restante descartado), dependendo do contexto.

    Em ambos os casos, um escalar seria destinado a each, o que costumava ser permitido, então avisado e então totalmente proibido, e assim (ainda) recebemos uma mensagem extra.

    • 4

  2. ('a','b','c')não é uma matriz; é uma lista. Consulte cada um .

    Se você atribuir a lista a uma variável de array, funcionará:

    my @array = ('a','b','c');
while (my ($i, $t) = each(@array)) {
    say "$i, $t";
}

    Saída:

    0, a
1, b
2, c
    • 2

relate perguntas