| Hash :: Tipo Hash :: Type Módulo contém pseudo-hashes como matrizes amarrados a um "tipo" (lista de campos). |
Baixe Agora |
Hash :: Tipo Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Laurent Dami
- Site do editor:
- http://search.cpan.org/~dami/
Hash :: Tipo Tag
Hash :: Tipo Descrição
Hash :: Type Module contém pseudo-hashes como matrizes amarrados a um "tipo" (lista de campos). Hash :: Type Module contém pseudo-hashes como matrizes amarrados a um "tipo" (lista de campos) .Synopsis Use Hash :: Tipo; # Criar um Hash :: Digite Meu $ PersonType = New Hash :: Type (QW (Cidade do PrimeiroName)); # Criar e preencher alguns hashes amarrados a $ persontype tie% wolfgang, $ persontype, "Wolfgang Amadeus", "Mozart", "Salzburg"; $ ludwig = novo $ persontype ("ludwig", "van Beethoven", "Viena"); $ JSB = novo $ persontype; $ JSB -> {city} = "leipzig"; @ {$ jsb} {qw (firstname lastname)} = ("Johann Sebastian", "Bach"); # Adicionar campos dinamicamente $ persontype-> adicionar ("nascimento", "morte") ou morrer "campos não adicionados"; $ Wolfgang {Birth} = 1750; # Mais completo exemplo: leia um arquivo simples com cabeçalhos na primeira linha minha ($ headerline, @datalines) = map {chomp; $ _}; Meu $ HT = New Hash :: Digite (Split / T /, $ Headerline); foreach my line (@datalines) {my $ Data = novo $ HT (Split / T /, $ line); work_with ($ data -> {somefield}, $ data -> {someotherfield}); } # uma alternativa ao tempo :: GMTime e hora :: LocalTime Meu $ Timetype = New Hash :: Digite QW (Sec Min Hora MDY MON ANO WDY); Meu $ LocalTime = NOVO $ Timetype (LocalTime); Meu $ GMTime = New $ Timetype (GMTime); Imprimir $ LocalTime -> {Hour} - $ GMTime -> {Hour}, "Diferença de horas para GMT"; # Comparação Funções Meu $ Ponto = $ PersonType-> cmp ("Nascimento: -Num, LastName, firstname"); Meu $ ByNameElength = $ PersonType-> CMP (LastName => {Comprimento ($ B) Comprimento ($ a)}, LastName => 'alfa', firstname => 'alfa'); Showperson ($ _) foreach (classificar $ byage @People); Showperson ($ _) foreach (Classificar $ BynameElength @People); # Comparações Especiais: Datas Meus $ US_DATECMP = $ MyhashType-> CMP ("SomeDateField: m / d / y"); Meu $ FR_INVERSEDATECMP = $ myhashtype-> cmp ("SomeDateField: -d.m.y"); Requisitos: · Perl.
Hash :: Tipo Software Relacionado