Tie :: Scalar :: Pegajoso Tie :: Scalar :: Pegajoso é um módulo Perl com atribuições de bloco para escalar.
Baixe Agora

Tie :: Scalar :: Pegajoso Classificação e resumo

Tie :: Scalar :: Pegajoso Tag

quadra Módulo Perl. escalares. atribuições de blocos Atribuições Scalars.

Tie :: Scalar :: Pegajoso Descrição

Tie :: Scalar :: Pegajoso é um módulo Perl com atribuições de bloco para escalar. Tie :: Scalar :: Pegajoso é um módulo Perl com tarefas de bloco para Scalars.synopsis use rigoroso; Use Tie :: Scalar :: Pegajoso; amarre meu $ pegajoso, 'empate :: escalar :: pegajoso'; $ sticky = 42; $ pegajoso = ''; # ainda 42 $ sticky = undef; # ainda 42 $ pegajoso = 0; # Agora é zero gravata Meu $ pegajoso, 'Tie :: Scalar :: Sticky' => QW / Foo Bar /; $ sticky = 42; $ pegajoso = 'foo'; # ainda 42 $ pegajoso = 'bar'; # ainda 42 $ pegajoso = 0; # Agora, é que os zeroscalars amarrados a este módulo "rejeitarão" quaisquer tarefas de Redef ou a string vazia ou qualquer um dos Auturments Extra fornecidos para empatar (). Simplesmente remove a necessidade de você validar tarefas, como: $ var = $ Val a menos que Grep $ Val EQ $ _, QW (não um desses); na verdade, essa é a ideia exata usada neste módulo ... assim , por que fazer isso? Porque recentemente tive que loop através de uma lista onde alguns itens foram indefinidos e o valor previamente definido deve ser usado em seu lugar. Em poucas palavras: amarre meu $ pegajoso, 'empate :: escalar :: pegajoso' => 9, 'string'; para (3, Redef, 'string', 2 '', 1,9,0) {$ pegajoso = $ _; Imprimir $ pegajoso ''; } Deve imprimir: 33 22 10 Requisitos: · Perl.

Tie :: Scalar :: Pegajoso Software Relacionado