Constante :: Atom. símbolos exclusivos
Baixe Agora

Constante :: Atom. Classificação e resumo

Constante :: Atom. Tag

Módulo Perl. perl símbolos único símbolos únicos

Constante :: Atom. Descrição

Símbolos exclusivos Ao contrário das constantes declaradas com constante, átomos não estão associados a nenhum valor escalar específico. Em vez disso, os átomos têm sua própria identidade independente e só compararão positivamente (através do teste 'EQ') com outros átomos idênticos. Todas as outras operações em átomos são indefinidas, incluindo fundição para um número e fundição para uma string.atoms são usados no lugar de constantes em situações em que é necessário um valor único para representar alguma ideia ou estado de programa, mas onde esse valor não é normalmente associado com um valor escalar, e não deve ser confundido com um. Os átomos são semelhantes a C ENUMs a este respeito, exceto que os átomos não têm um valor ordinal.below é um exemplo de onde um átomo resolveria um problema: # use constante :: «erro '; Use erro constante '=> 999999; sub barra {my ($ arg) = @_; #Always retornam $ arg para fins de demonstração (não erro). Retornar 1? $ arg: erro; } Meu $ Foo = Bar (999999); Imprimir "Foo: $ foo \ n"; Print $ Foo Error EQ? "Foo retornou erro." : "Foo retornou $ foo."; Saída: Foo retornado Erro.No exemplo acima, o programador está tentando escolher algum valor improvável para o 'erro' do alias. O problema é que, se 'bar' for chamado acidentalmente com esse mesmo valor, o programa acreditará erroneamente que 'erro' foi retornado. Isso não acontece com átomos. Use constante :: Átomo 'erro'; # use erro constante '=> 999999; sub barra {my ($ arg) = @_; #Always retornam $ arg para fins de demonstração (não erro). Retornar 1? $ arg: erro; } Meu $ Foo = Bar (999999); Imprimir "Foo: $ foo \ n"; Print $ Foo Error EQ? "Foo retornou erro." : "Foo retornou $ foo."; Saída: Foo retornado 999999.Synopsis Use constante :: Átomo QW (Azul amarelo vermelho); minha cor de $ = vermelha; Imprimir "Assim como pensamos! \ n" Se $ cor eq vermelho; Imprimir "Isso nunca acontecerá. \ n" Se $ cor eq azul; Imprimir "átomos nunca iguais a cordas! \ n" Se $ cor eq 'vermelho'; imprimir "cor é". $ color-> nome. "\ n"; #The a seguir levanta uma exceção, porque a adição não é definida para objetos Atom. $ cor + 1; Requisitos: · Perl.

Constante :: Atom. Software Relacionado